// PascalABC.NET
begin
var L1 := ReadlnReal('введите расстояние в км: ');
var L2 := ReadlnReal('введите расстояние в футах: ');
L2 := L2 * 0.305E-3; // перевод футов в километры
if L1 < L2 then
Println('L1 меньше')
else if L2 < L1 then
Println('L2 меньше')
else
Println('L1 = L2')
end.
а) Разбиваем буквы, составляющие слово, на пары и меняем их местами: урок;весна; каникулы; информация; мокрому дождь не страшен;
б) читаем слово справа налево: арена, корзина, рюкзак;
в) разбиваем слово на слоги и записываем каждый слог справа налево: канал, гитара,телевизор;
г) читаем слово через букву слева направо, а затем оставшиеся буквы справа налево:<span>балкон, вагон, кабинет.</span>
Гляди. Вот у нас первая строчка.
x:=1.5
Это значит, что переменной x мы присвоили значение 1.5
x:= 2*x + 1
Значение переменной x равно её текущему значению x * 2 + 3.
т.е.
x:= 1.5 * 2 + 1 = 4
Затем
y:= x/2
т.е.
y:= 4/2 = 2
Дальше по аналогии:
y:= x + y
т.е.
y = 4 + 2 = 6
и последняя операция:
x:=x - y
x:=4 - 6 = -2
Ответ: x = -2, y = 6
x = -2;
y = 6;
Program z1;
var x1,x2,y1,y2:integer;
begin
read(x1,x2,y1,y2);
writeln(sqrt(sqr(x2-x1)+sqr(y2-y1)));
end.
program z2;
var ch:integer;
begin
read(ch);
writeln(ch*ch);
end.
program z3;
var k1,k2:integer;
begin
read(k1,k2);
writeln(sqrt(sqr(k1)+sqr(k2)));
writeln((k1*k2)/2);
end.
program z4;
var ch1,ch2,ch3:integer;
begin
read(ch1,ch2,ch3);
writeln(abs(ch1)+abs(ch2)+abs(ch3)));
end.<span>
</span>