Предмет: Информатика,
автор: margaritazakie1
Определить сколько трехзначных чисел кратны m вывести их на экран
Ответы
Автор ответа:
0
Это Паскаль ?
Если да,то вот:
Кратные 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.
Если да,то вот:
Кратные 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.
Похожие вопросы
Предмет: Русский язык,
автор: vikusia1762
Предмет: Информатика,
автор: 100rubphimor
Предмет: Английский язык,
автор: bolashak2020
Предмет: Математика,
автор: GjnextZZZ
Предмет: Математика,
автор: Дутф