составьте программку которая обретает сумму четных чисел и творение нечетных чисел

Составьте программку которая находит сумму четных чисел и творение нечетных чисел в спектре от 1 до 10

Задать свой вопрос
1 ответ
Uses Crt;
var s,i:integer;
begin
ClrScr;
i:=0;
s:=0;

While ilt;10 do
Begin
i:=i+2;
s:=s+i;
end;
writeln('Summa chetnih ot 1 do 10 = ', s);

i:=1;
s:=1;
While ilt;9 do
Begin
i:=i+2;
s:=s*i;
end;
writeln('Proizv nechetnih ot 1 do 10 = ', s);
readln;
end.
Шурик Паваляев
это не то решение , скопировать я то же могу...
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт