составьте программу которая находит сумму четных чисел и произведение нечетных чисел в диапазоне от 1 до 10
Answers & Comments
eleott
Uses Crt; var s,i:integer; begin ClrScr; i:=0; s:=0; While i<10 do Begin i:=i+2; s:=s+i; end; writeln('Сумма четных = ',s); i:=1; s:=1; While i<9 do Begin i:=i+2; s:=s*i; end; writeln('Произведение нечетных = ',s); readln; end.
2 votes Thanks 2
sasha12012001
я в паскаль подставил и у меня высвечивается Программу с подключенным модулем CRT нельзя запускать по F9. Запустите программу, используя Shift-F9
Answers & Comments
var s,i:integer;
begin ClrScr;
i:=0;
s:=0;
While i<10 do
Begin i:=i+2;
s:=s+i;
end;
writeln('Сумма четных = ',s);
i:=1;
s:=1;
While i<9 do
Begin i:=i+2;
s:=s*i;
end;
writeln('Произведение нечетных = ',s);
readln;
end.
Запустите программу, используя Shift-F9