Последовательно вводятся 10 целых чисел. Сосчитать сколько из них совпадают с первым числом.Ввести 12 чисел. Определить сколько чисел кратно 5 Паскаль(Заранее спасибо)
Последовательно вводятся 10 целых чисел. Сосчитать сколько из них совпадают с первым числом.Ввести 12 чисел. Определить сколько чисел кратно 5
Паскаль(Заранее спасибо)
Ответ(ы) на вопрос:
№1
var a, b, k, i:integer;
begin
k:=0;
readln(a);
for i:=1 to 9 do begin
readln(b);
if a=b then k:=k+1;
end;
writeln('Ответ:', k);
end.
№2
var a, k, i:integer;
begin
k:=0;
for i:=1 to 12 do begin
readln(a);
if a mod 5=0 then k:=k+1;
end;
writeln('Ответ:', k);
end.
Не нашли ответ?
Похожие вопросы