Для разных чисел вводимых с клавиатуры найдите сумму положительных не чётных.написать программу на паскале.

ник3123 ник3123    3   21.07.2019 13:20    0

Ответы
халк65 халк65  25.08.2020 11:53
Program summ;
var
n, sum : integer;

begin
writeln('Вводите числа (введите 0 для выхода):');
sum := 0;
repeat
readln(n);
if ((n>0) and (n mod 2 <>0)) then
sum := sum+n;
until n=0;
writeln ('Сумма положительных нечётных чисел равна ', sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика