Лекция 14.

Что выведет данная программа?

Program _;

Const n=0.5

Var x,y:real;

Z:byte;

Begin

Write(‘введите x,y ’);

Read(x,y);

Z:=10;

Writeln(‘результат=’);

Write(x+y-z:10:2)

end.

Если с клавиатуры вводим 5 6 7

Program _;

Const n=8,8;

M=10;

begin

Writeln(‘пример’);

Write(‘n’);

Writeln(n);

Write(‘m’);

Writeln(m:5);

end.