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.
Ответ дал: Гость
1)
s : = 0;
for i : = 1 to k do
begin
if i mod 2 < > 0 then
s: = s + i;
end;
2)
for i : = 5 to 55 do
begin
if i mod 2 < > 0 then
writeln(i);
end;
3)
s : = 1;
for i : = n to m do
begin
s: = s * i;
end;
4)
s : = 0;
for i : = 10 to 15 do
begin
s: = s + i;
end;
обрамления там везде одинаковые
Ответ дал: Гость
думаю, что дикий заяц, он то серый, то белый, то кремовый, в течении года
Популярные вопросы