Последовательно вводятся 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы