Нужно составить программу на языке ПаскальABC
Polia111111
2
03.04.2020 02:28
3
Другие вопросы по теме Информатика
Мерген08
08.05.2020 12:21
cnastya970
03.09.2019 19:30
МарианМариан
21.06.2019 07:20
snakesap
21.06.2019 07:20
TATAP2004
22.07.2019 15:40
иска4578
22.07.2019 15:40
korsukova61oye48j
22.07.2019 15:40
MrWolf1244
22.07.2019 15:40
Популярные вопросы
- Побудуйте график функціЇ y= -x2. за до графіка знайдіть значення функції,...
2 - Почему большинство людей имеет опрятный вид?...
2 - Повідомлення про Рослини-релікти та ендеміки України ....
2 - Ағзаның тағам арқылы қажетті Энергияны және заттықабылдауықоректенуқозғалудамузәр...
3 - В каком варианте ответа правильно указаны все цифры, на месте кото-рых в предложении...
1 - с вопросами про маугли 1.Как Маугли оказался в волчьей стае? 2.Почему волчица...
3 - На рисунке 1 РТ=КМ, РК=ТМ. Докажите, что прямые РТ и КМ парллельны....
2 - Порівняйте розвиток Спарти і Афін. Відповідь оформіть таблицею. 9 вопрос...
1 - звуки речи, в отличие от других звуков(звуков, издаваемые животными, птицами,...
3 - Доказать что наименьшее общее кратное это примитивно рекурсивная функция...
3
var x,y:integer;
begin
readln(x);
if x > 0 then
y := 2*x
else
y := x - 1;
writeln(y)
end.