Предмет: Информатика,
автор: 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:
Спасибо
Похожие вопросы
Предмет: Русский язык,
автор: даночка25
Предмет: Английский язык,
автор: Барецкая
Предмет: Русский язык,
автор: Александра23
Предмет: История,
автор: маргоша1234567
Предмет: Химия,
автор: 81830306