Question

Сколько на интервале от 1 до 100 чисел кратных 4 ПРОГРАММА ПАСКАЛЬ ABC

Answer 1

Var  

  i, k: integer;

Begin
k:=0;

 writeln('Числа кратные 4:');  

 for i:=1 to 100 do

   if i mod 4 = 0 then

     begin

       k:=k+1;

       write(i:4);

     end;

 writeln;

 writeln('Всего чисел: ',k);    

End.

Answer 2

На интервале от 1 до 100 есть несколько чисел, которые кратны 4. Однако, уточните, что именно вы хотите узнать о программе Pascal