Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Паскаль.
Найти количество положительных чисел в промежутке от 1 до 100, кратных четырем.

Ответ оставил Гость

// Найти количество положительных чисел в промежутке от 1 до 100, кратных четырем.
Var i,j,x: word;

begin
  j:=0;
  writeln (Числа кратные четырем:);
   for i:=1 to 100 do
     begin
        x:=i mod 4;     
        if x=0 then
           begin
              j:=j+1;
              write(i, );
           end;
     end;
  writeln;
  writeln (Всего таких чисел: ,j);   
end.