Question

Нужно сделать программу выдающую итоги деления кратных трем чисел на три от 20 до 80.
Var a,b,c:integer;

Begin

a:=20;

b:=3;

While a<=80 do

begin

if a mod b=0

then

c:=a div b;

a:=a+1;

writeln(c);

else

a:=a+1;

end;

End.

Pascal ABC

Пишет встречено else а ожидался оператор.

Answer 1

Ответ:

подправила, работает, проверь, то ли что надо выдает?