Question

написать программу для ввода значения величины X целого типа, присваивания величине Y действительного типа значения 5.5 , вычисления значения величины Z=X-Y и вывода значения величины Z. Протестировать алгоритм для X=5.5, X=0, X=-10.2

Answer 1

Program fofgogjoj;
var
x:integer;
y,zreal;
begin
Writeln('x=');
Readln(x);
y:=5.5;
z:=x-y;
Writeln('z=',z);
end.

X=5.5,  - ошибка 
 X=0,    -    z=-5.5
 X=-10.2    -   ошибка