Помогите плиз Разработать алгоритм, который бы выводил ** экран все четные числа в...

0 голосов
52 просмотров

Помогите плиз
Разработать алгоритм, который бы выводил на экран все четные числа в диапазоне от 0 до 100.


Информатика (165 баллов) | 52 просмотров
Дано ответов: 2
0 голосов
Правильный ответ
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Range(0,100,2).Println
end.

Результат
0 2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50 52 54 56 58 60 62 64 66 68 70 72 74 76 78 80 82 84 86 88 90 92 94 96 98 100
(150k баллов)
0 голосов

Pascal ABC:

program he9e;
var i: Integer;
begin
for i:=2 to 100 do
if i mod 2=0 then write(i,' ');
end.

(3.3k баллов)