Предмет: Информатика,
автор: morofonuk228
Срочно! Нужно составить программу на языке ПаскальABC
Приложения:

Ответы
Автор ответа:
1
var x,y:integer;
begin
readln(x);
if x > 0 then
y := 2*x
else
y := x - 1;
writeln(y)
end.
morofonuk228:
Спасибо
Интересные вопросы
Предмет: Русский язык,
автор: elenkamak
Предмет: Английский язык,
автор: macusan
Предмет: Английский язык,
автор: vita201313
Предмет: Литература,
автор: master228666