Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program zadacha;
uses crt;
var otvet: real;
begin
otvet: = ((4785**45*45))/50;
writeln(otvet: 5: 5);
readkey;
end.
program xxx;
var i, x, s : integer;
write('введите число х=');
readln(x);
s: =0
i: =1
while i < =x do
s: =s+i;
i: =i+2
end;
write('сумма нечетных чисел ='; s);
readln
Популярные вопросы