Предмет: Информатика,
автор: blackram08
Составьте программу с использованием процедуры,которая вычислит следующее значение:
если x<1 то y=x+3;
если x>1 то y=x-3;
на паскале
Ответы
Автор ответа:
0
procedure solve(x: integer);
var y: integer;
begin
if x<1 then y:=x+3
else if x>1 then y:=x-3;
write('y=',y);
end;
var x: integer;
begin
writeln('x=');
readln(x);
solve(x);
end.
blackram08:
с использованием процедуры
procedure solve(x: integer); - процедура
извините,не увидел
Интересные вопросы