Напишите программу которая в последовательности натуральных чисел определяет количество чисел меньше 500 и кратных 3. Програма получает на вход количетво чисел, а затем сами числа. Введеные числа не привышают 30000

Ответы (1)

Зорий 10.04.2025 4

//Pascal
var a,i,n,k:integer;
begin
k:=0;
readln(n);
for i:=1 to n do begin
    readln(a);
    if (a mod 3 = 0) and (a500) then
      k:=k+1;
end;
writeln(k);
end.

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

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

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

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

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

ПРЕДМЕТЫ