Написать программу в паскале(тема циклов) и блок схему :
Для различных вводимых с клавиатуры целых чисел найдите сумму положительных нечетных.
Ответы на вопрос
Ответил Bonzik2
0
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.
Вроде так. Нет возможности проверить.
Ответил Bonzik2
0
Я не списывал.
Ответил Аноним
0
тогда Вы придуряетесь, говоря, что не знаете о блок-схемах.
Ответил Аноним
0
третьего тут не дано
Ответил Bonzik2
0
Как хотите
Ответил Аноним
0
Мне, в общем-то все равно, лишь бы автора вопроса устроила.
Новые вопросы