Нужно сделать программу выдающую итоги деления кратных трем чисел на три от 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 а ожидался оператор.
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 а ожидался оператор.
More Questions From This User See All
Answers & Comments
Ответ:
подправила, работает, проверь, то ли что надо выдает?