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

Question

99

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

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

plazar · Accepted Answer

79

plazar

12 февраля 2023

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 ('Summa chetnih ot 1 do 10=', s); i: =1; s: =1; While i<9 do Begin i: =i+2; s: =s*i; end; writeln ('Proizv nechetnih ot 1 do 10=', s); readln; end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: