program msd; uses crt; var a,l,proiz,b,i: longint; beginclrscr; readln(a); proiz: =1; while true do beginl: =a mod 10; a: = a div 10; if odd(l) = true thenproiz: =proiz*lelseb: =b+1; i: =i+1; if a = 0 then break; end; if b = i then writeln('0')elsewriteln(proiz); if (proiz> 99) and (proiz< 1000) then writeln('da')else writeln('net'); 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;
обрамления там везде одинаковые
Ответ дал: Гость
поскольку http: \\ftp. не бывает, то ftp: \\schools.ru\program.exe
Популярные вопросы