Напишите программу,которая в последовательности натуральных чисел определяет количество нечетных чисел,кратных 5. Программа получает на вход количество чисел в последовательности,а затем сами числа. В последовательности всегда имеется число,кратное 4. Количество чисел не превышает 1000. Введенные числа не превышают 30000. Программа должна вывести одно число -количество чисел, кратных 4

Ответы (1)

Ханыль 31.03.2025 1

1)Program pr;
uses crt;
Var a,k,k1:integer;

Begin
Writeln('Введите a');
readln(a);
k1:=1;
k:=0;
While (a0) and (k11000) do
Begin
if (a0) and (a mod 2=0) and (abs(a)=30000) then k:=k+1;
k1:=k1+1;
readln(a);
end;
Writeln('k=',k);
readln;
end. 2)
Program pr;
uses crt;
Var a,k,k1:integer;

Begin
Writeln('Введите a');
readln(a);
k1:=1;
k:=0;
While (a0) and (k11000) do
Begin
if (a>0) and (a mod 20) and (abs(a)=30000) then k:=k+1;
k1:=k1+1;
readln(a);
end;
Writeln('k=',k);
readln;
end.

Знаете правильный ответ?

Думаешь ответы не верны?

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

Воспользуйтесь поиском

Новые вопросы по предмету Информатика: