program ml; uses crt; var x,i: integer; w,l: real; beginclrscr; readln(x); l: =x; for i: =1 to x do beginw: =w+1; l: =x/w; if frac(l) = 0 then writeln(l: 2: 0); end; readkey; end.
Ответ дал: Гость
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.
Ответ дал: Гость
var a: integer; beginreadln(a); write (a div 10); end.
Ответ дал: Гость
если 25(из которых 15 сто пудов в школьной и 10 смешанные) берут в школьной, то 10 человек берут в районной.
если 20(из которых 10 сто пудов берут в районной 10 смешанные), то 15 в школьной
Популярные вопросы