В PascalABC.Net На 6 строке пишет " Встречено 'a1', а ожидалось ';' "
.
program z1;
var
a,a1,a2,a3,a4,d1,d2: integer;
begin
Read (a)
a1:=d1_div_10;
writeln (a1)

a2:=a_mod_10;

writeln (a2)

a3:=a_mod_10;

writeln (a3)

a4:=a_mod_10;

writeln (a4)

d1:=a_div_10;

d2:=a_div_10

end.

НиколайСПБ    3   17.04.2021 13:27    0