Question

Найти и исправить все ошибки в программах. (записать в тетрадь программу верно)
a)
РROGRAMM Examрle1;
var h, m: integer; g: real;
BEGIN
m:=10;
g:=9.8;
h:=5.5;
A:=m*g*h;
write( 'A= ', A)
b)
РROGRAM Examрle 2;
var a, b: rial; c: integer;
BEGIN
a:=2.5;
b:=3.0;
write(a,b)
c:=a; a:=b b:=c;
write a,b
END.

Answer 1

Ответ:

a)

program Examрle1;

var m: integer; h, g, A: real;

begin

m:=10;

g:=9.8;

h:=5.5;

A:=m*g*h;

write( 'A= ', A)

end.

b)

program Examрle2;

var a, b, c: real;

begin

a:=2.5;

b:=3.0;

writeln(a,' ',b);

c:=a;

a:=b;

b:=c;

write (a,' ',b)

end.