Задание: Создайте программу.
тема: Разветвлённый цикл.
ребята, напишите пожалуйста программу ко 2-ой задаче. даю 37 баллов
Вот программа:
var x,y:real;
begin
write(Введите значение аргумента x=);
readln(x);
if x<-1 then y:=0
else if x<0 then y:=x+1
else y:=1;
writeln(При x=,x, y=,y);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
