Предмет: Информатика,
автор: zxccxzzz
решить задачу используя цикл while. с клавиатуры вводится n чисел. найти количество трёхзначных кратных числу 3.
Приложения:

regmay:
Язык?
Ответы
Автор ответа:
1
var n,c,a,i:integer;
Begin
i:=0;
c:=0;
Write('n=');
Readln(n);
while i<>n do Begin
Readln(a);
if (a div 100>0) and (a div 1000<1) and (a mod 3=0) then c+=1;
i+=1
end;
Writeln('Трехзначных чисел кратных трем = ',c);
end.
Интересные вопросы
Предмет: Физика,
автор: cig
Предмет: Химия,
автор: Настюша240498
Предмет: Алгебра,
автор: NeCrAsOvO
Предмет: Литература,
автор: irusiksob