Var a,b,c:integer; Begin a:=20; b:=3; While a =80 - вопрос №2038012069004 от Ganster1234567 05.03.2023 14:02

Question

Информатика: 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 а ожидался оператор.

Ganster1234567 · Answer

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

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 а ожидался оператор.