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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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

var

  i,k:integer;

begin

  k:=0; i:=20; { четное }

  while i<=100 do begin

    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.