Var a, b, c, d, h, i:integer;
begin
read (h);
write (1200*9.8*h);
end.
P.S. Благодарность не помешает.
Var
a,b,p,i: integer;
begin
write ('Введите 2 числа: ');
readln (a,b);
p:=1;
for i:=a to b do
if (i*6) mod 10 =2
then p:=p*i;
writeln (p);
end.
--------------Результат---------------
Введите 2 числа: 1 10
14
380+x=720
x=720-380
x=340
380+x=260+460
380+x=720
x=720-380
x=340
1. Друга ищи, а найдешь - береги.
2. Старый друг лучше новых двух.
Как-то так.
На фотографии показано как переводить
(десятичная) 46=101110 (двоичная)
(10) 123= 1111011 (2)
(10) 33 = 21 (шеснадцатиричная)
(2) 100010001= 111 (16)
(16) 543=1347 (10)