Напишите программу, которая в последовательности целых чисел определяет количество нечетных положительных чисел. программа получает на вход целые положительные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0. количество введенных чисел не превышает 1000. все числа не превосходят 30 000. и блок схему
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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
