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

Подсчитать сумму всех четных чисел от 300 до 400.(паскаль)
Вывести на экран все трехзначные числа,кратные 8
ПОМОГИТЕ ПРОШУ

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

// Задание №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.