Определить сколько трехзначных чисел кратны m вывести их на экран
Определить сколько трехзначных чисел кратны m вывести их на экран
Гость
Ответ(ы) на вопрос:
ГостьЭто Паскаль ?
Если да,то вот:
Кратные m- ((a mod m)=0
program Primer;
uses Crt;
var a,k,n,i:integer;
begin
k:=0;
read(n);
for i:=1 to n do begin
read(a);
If ((a<1000) and (a>99) and ((a mod a)=o) then begin
write(a);
k:=k+1;
end;
end;
write(k)
end.
Не нашли ответ?
Похожие вопросы