Пожалуйста помогите! Найдите исправьте все ошибки, допущенные в этой программе.Запишите программу без ошибок.
Var a;b;c:Integer;d:real;
Begin
Writeln('b=?',b)
Readln(b);
a=10;
с:ab
Writeln(' a x b' равно' C);
d:=c div b;
writeln(d)
End.
Var a;b;c:Integer;d:real;
Begin
Writeln('b=?',b)
Readln(b);
a=10;
с:ab
Writeln(' a x b' равно' C);
d:=c div b;
writeln(d)
End.
More Questions From This User See All
Answers & Comments
Verified answer
Var a,b,c:integer;d:integer;Begin
Writeln('b=?',b);
Readln(b);
a:=10;
с:=a*b;
Writeln(' a x b равно', c);
d:=c div b;
writeln(d)
End.
ошибки я старалась выделить жирным