Question

составьте программу которая выводит на экран сумму кратных 3 и 4 из диапазона от 1 до 50

Answer 1

var i: Integer;

begin

i := 12;

while i < 50 do

begin

WriteLn(i);

i := i + 12;

end;

end.

Answer 2

почему end два раза?

Answer 3

Конец цикла while.

Answer 4

спасибо.