Консультация № 175627
26.12.2009, 20:16
0.00 руб.
27.12.2009, 05:53
0 1 0
Помогите юному программисту, пожалуйста решить, нерешимую задачу. картинка в блоге mail.ru
Даны действительные числа x,e. Вычислить Z

Обсуждение

Неизвестный
26.12.2009, 21:24
общий
Тимур Пискарев:
Вот программка, довольно простенькая:

Код:
Uses Crt;
var
x,y,z:integer;
begin
ClrScr;
Write('Введите x: ');
ReadLn(x);
Write('Введите y: ');
ReadLn(y);
If x>y then
z:=x-y
else
if x<y then
z:=y-x+1
else
z:=0;
WriteLn('z=',z);
ReadKey;
end.


P.S. Если числа равны, то выводится ноль.
Форма ответа