Напишите программу, которая в последовательности целых чисел определяет количество нечетных положительных чисел. Программа получает на вход целые положительные числа, количество введенных чисел неизвестно, последовательность чи...

Напишите программу, которая в последовательности целых чисел определяет количество нечетных положительных чисел. Программа получает на вход целые положительные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0. Количество введенных чисел не превышает 1000. Все числа не превосходят 30 000. И блок схему пожалуйста
Гость
Ответ(ы) на вопрос:
Гость
Ради каких то 5 баллов , даже редактор не открою
Гость
uses crt; Var a,k,k1:integer; Begin Writeln('Введите a'); readln(a); k1:=1; k:=0; While (a<>0) and (k1<1000) do Begin if (a<0) and (a mod 2=0) and (abs(a)<=30000) then k:=k+1; k1:=k1+1; readln(a); end; Writeln('k=',k); readln; end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы