Question

Подсчитать сумму всех четных чисел от 300 до 400.(паскаль)

Вывести на экран все трехзначные числа,кратные 8
ПОМОГИТЕ ПРОШУ

Answer 1

// Задание №1
var
  a,s: integer;
begin
  a:=300;
  repeat
    s:=s+a;
    a:=a+2;
    until a>400;
  writeln('s = ', s)
end.

// Задание №2
var
  a: integer;
begin
  a:=100;
  repeat
    if a mod 8 = 0 then write(a:4);
    a:=a+1;
    until a>999;
end.

Answer 2

Что всегда в Паскале раздражало, так это отсутствие в цикле for шага, отличающегося от 1 или -1

Answer 3

Это точно.