Предмет: Информатика,
автор: sabelina03
Напишите программу которая определяет кол-во чисел кратных 3 в n последовательности чисел введенных с клавиатуру. Сделать через массив , Помогите!!!
Ответы
Автор ответа:
0
const N:=30(любое значение);
var a:array[1....N] of integer;
begin
for i:=1 to N do begin
write ('A='); read (a[i]);
end;
c:=0;
for i:=1 to N do begin
if a[i] mod 3=0 then begin
c:=c+1;
end;
end;
write (c);
end.
var a:array[1....N] of integer;
begin
for i:=1 to N do begin
write ('A='); read (a[i]);
end;
c:=0;
for i:=1 to N do begin
if a[i] mod 3=0 then begin
c:=c+1;
end;
end;
write (c);
end.
Похожие вопросы
Предмет: Алгебра,
автор: dimar8653
Предмет: Химия,
автор: ularbek897
Предмет: Русский язык,
автор: kdemankova
Предмет: Математика,
автор: musicanAaAnGeL0k
Предмет: Математика,
автор: 4501319