Question

СРОНО,ДАЮ 50 БАЛЛРВ,ТОЛЬКО ОТВЕТНУЖЕН,У МЕНЯ НА ВРЕМЯ
Запиши программу на языке Паскаль для: y=⎧⎩⎨⎪⎪0,еслиx≤0x,если01. (y:3:0)
Запусти программу и введи значение x=-14.

Число выведенное на экран:
????

Answer 1

program one;
uses crt;
var
x,y:real;
begin
textcolor(11);
writeln('Введите число x: ');
readln(x);
if x<=0 then y:=0 else writeln(y:3:0);
end.