Решение простых задач в Паскаль - Паскаль, Turbo Pascal, PascalABC.NET

Елизавета Ананенко · 16.03.2016, 16:47

Здравствуйте. Помогите решить задачу в Паскаль. Надо ввести с клавиатуры целое число, если оно отрицательное, то уменьшить его на 10 и вывести на экран, указав, что оно отрицательное.

Dvoishnik · 16.03.2016, 16:50

Код:

readln(a);
if a<0 then 
write('отрицательное число',a-10);

Елизавета Ананенко · 16.03.2016, 23:41

Спасибо большое! Вы очень помогли!

16.03.2016, 16:47	#1
Елизавета Ананенко Новичок Джуниор Регистрация: 16.03.2016 Сообщений: 2	Решение простых задач в Паскаль Здравствуйте. Помогите решить задачу в Паскаль. Надо ввести с клавиатуры целое число, если оно отрицательное, то уменьшить его на 10 и вывести на экран, указав, что оно отрицательное.

16.03.2016, 16:50	#2
Dvoishnik Форумчанин Регистрация: 12.02.2011 Сообщений: 808	Код: `readln(a); if a<0 then write('отрицательное число',a-10);` Терпение!Дежурный экстрасенс скоро свяжется с вами! Последний раз редактировалось Dvoishnik; 16.03.2016 в 16:55.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Решении 4-х простых задач на СИ	GraverYA	Общие вопросы C/C++	22	20.09.2014 16:45
Решение комбинаторно-оптимизационных задач (Паскаль)	irsen22	Фриланс	2	13.05.2013 11:55
Решение задач.Паскаль	mayoneznaya_feya	Помощь студентам	6	02.12.2010 18:22

16.03.2016, 23:41	#3
Елизавета Ананенко Новичок Джуниор Регистрация: 16.03.2016 Сообщений: 2	Спасибо большое! Вы очень помогли!