Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
i: integer;
begin
for i: =100 to 999 do
if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)
then writeln(i);
end.
program e8;
var a, b, c, v: real;
writeln('введите значения длины, ширины,высоты');
readln(a,b,c);
v: =a*b*c;
writeln('v=', v: 4: 2);
readln;
одна из возможных форм курсора : прямая
я считаю что серверов 2) 10 000 000
Популярные вопросы