Поміняти місцями значення двох цілих змінних, не використовуючи додаткової змінної.
uses crt;
var a,b : integer;
Begin
clrscr;
Readln (a);
Readln (b);
a:=b-a;
b:=b-a;
a:=b+a;
Writeln ('a=',a);
Writeln ('b=',b);
Readln
End.
Ввести чотирьохзначне число і визначити:
а)суму його цифр
б)першу цифру замінити на модуль різниці першої та останньої цифри та вивести замінене число.
в) вивести число у зворотному порядку.
a)
uses crt;
var a,b,c,d,e,f : integer;
Begin
clrscr;
readln (a);
b:=a div 1000;
c:=a div 100 mod 10;
d:=a mod 1000 mod 100 div 10;
e:=a mod 10;
f:=b+c+d+e;
Writeln (f);
Readln
End.
b)
uses crt;
var a,b,c,d,e,f : integer;
Begin
clrscr;
readln (a);
b:=a div 1000;
c:=a div 100 mod 10;
d:=a mod 1000 mod 100 div 10;
e:=a mod 10;
f:=abs(b-e);
Writeln (f,c,d,e);
Readln
End.
c)
uses crt;
var a,b,c,d,e,f : integer;
Begin
clrscr;
readln (a);
b:=a div 1000;
c:=a div 100 mod 10;
d:=a mod 1000 mod 100 div 10;
e:=a mod 10;
Writeln (b,c,d,e);
Readln
End
Обчислити площу трикутника за формулою Герона. Значення сторін ввести з клавіатури.
uses crt;
label 222
var a,b,c,p,s,piv,g :real;
Begin
clrscr;
readln (a,b,c);
p:=a+b+c;
piv:=p/2;
g:=piv*(piv-a)*(piv-b)*(piv-c);
s:=sqrt(g);
Writeln ('ploscha=',s:8:2);
Readln
End.
Скласти програму обчислення площі рівностороннього трикутника за відомою довжиною його сторони.
Обчислити куб суми двох цілих чисел.
uses crt;
var a,b : integer; c :real;
Begin
clrscr;
readln (a,b);
c:=sqrt3(a+b);
Writeln (c:8:2);
Readln
End.
Написати програму переведення секунд у відповідне їм значення повних годин, хвилин та секунд.
uses crt;
var a,b,c,d :integer;
Begin clrscr;
Readln (a);
b:=a div 60;
c:=a mod 60;
Writeln ('godin=',b);
Writeln ('hvilin=',c);
Readln
End.
Визначити h – повну кількість годин та m– повну кількість хвилин, які пройшли від початку доби до того моменту, коли годинникова стрілка повернулась на f градусів. (f– дійсне число [0...360])
Обчислити значення квадратного тричлена Ax^2+Bx+C, коефіцієнти якого та значення змінної x вводяться за допомогою клавіатури.
Обчислити n-ий член арифметичної прогресії, якщо відомі її перший член та різниця.
Знайти площу круга, обмеженого цим колом. (Довжина кола вводиться з клавіатури)
uses crt;
var S,p,R : integer;
Begin
clrscr;
Readln (p);
R:=p/2/Pi;
S:=sqr(Pi*R);
Writeln ('ploscha=',S);
Readln
End.
Виконати посередині напис Turbo Pascal, щоб він мав вигляд такий, як показано на малюнку.
Змінна а- випадкова величина дійсного типу з діапазону [0..5).
Необхідно вивести таким чином результат (Наприклад, якщо а=4.648, то на екран вивести: 4+0.648=4.648)
Між трьома країнами розділили m комп'ютерів у відношенні 4:7:5. (m - будь-яке ціле число, що вводиться з клавіатури). Скільки комп'ютерів одержала кожна країна?
Припустимо, що ви отримали у спадок n гривень (n - будь-яке ціле число, що вводиться з клавіатури). Ви вирішили жити на 1200 грн у місяць. Визначити на скільки років вам вистачить цього спадку.
uses crt;
var n,a,b,c : integer;
Begin
Readln (n);
a:=n/1200 div 12;
Writeln ('na',a,'rokiv');
End.
