Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Написать программу в паскале(тема циклов) и блок схему :
Для различных вводимых с клавиатуры целых чисел найдите сумму положительных нечетных.

Ответ оставил Гость

Program kek;Var a, c:integer;Beginc:=0;a:=1;While a<>0 do beginWriteln(Вводите целые числа. Когда закончите - введите "0");Readln(a);If (a>0) and (a mod 10 = 1) then do beginc:=c+a;end;End;Writeln(c);End.Вроде так. Нет возможности проверить.