Question

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

Answer 1

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

Answer 2

Я не списывал.

Answer 3

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

Answer 4

третьего тут не дано

Answer 5

Как хотите

Answer 6

Мне, в общем-то все равно, лишь бы автора вопроса устроила.