Найдите количество четных чисел ,диапазоне от 20 до 100.

Question

Найдите количество четных чисел ,диапазоне от 20 до 100.

Answer 1

1. Школьный вариант в стиле ТурбоПаскаль 1983г.

var
  i,k:integer;
begin
  k:=0; i:=20; { четное }
  while i<=100 do begin<br>    k:=k+1; i:=i+2
    end;
  Writeln('k=',k)
end.

Результат
k=41

2. Современный Паскаль

// PascalABC.NET 3.2, сборка 1431 от 28.04.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('k=',Range(20,100,2).Count)
end.