Question

Дано n натуральных целых чисел, которые вводятся пользователем с клавиатуры. Составить программу, определяющую количество на¬туральных целых чисел, не превышающих 100 и крат¬ных 5.

Answer 1

Ответ:

Program p1;

var i,k:integer;

begin

k:=0;

for i:=1 to 100 do

begin

if (i mod 5 = 0) then k:=k+1;

end;

writeln (k);

end.