< >

Помогите сотавить программу Турбо Паскале.

Дано целое число  А. Если значение А>0,  то необходимо увеличить его на единицу.  Разобрать схему алгоритма для решения этой задачию Протестировать алгоритм для А=5,А=-4,А=0 в

Ответы

Ответ дал: MagAragorn
0
var a:longint;
begin
read(a);
if a>0 then
a:=a+1;
end.
Приложения:
Похожие вопросы
Русский язык
2 года назад
"В каком ряду во всех словах ударение падает на второй слог? 1)горох, бузина, рябина 2) укачивает, гитара,  метла 3) танкист, городки, указ 4) рынок, ворона, травинка"  
Русский язык
2 года назад
художественная роль повтора
Экономика
7 лет назад
Помогите пожалуйста ответить((( 1. Родовыми признаками кредита являются: а) ликвидность и безопасность; б) платность, срочность, возвратность; в) адресность и безопасность; г) ликвидность и
Математика
7 лет назад
Помогите пожалуйста))))))
Физика
10 лет назад
с какой силой притягиваются два корабля массами по 20000 т,если находящиеся на расстоянии 2 км один от другого?
Химия
10 лет назад
определите объем газа,который образуется при взаимодействии 125 г магния,содержащий 5% примесей с H2SO4
Физика
10 лет назад
Рассчитайте,за какое время солнечный свет достигает Земли,если расстояние между Землей и Солнцем 150млн.км.Скорость света ровна 300000км/с?
Химия
10 лет назад
Вычислите массу осадка , который образуется при смешивании раствора Аргентум Нитрата (серебро нитрата) массой 200г с массовой долей соли 17% и раствора натрий фосфата массой 20г с массовой долей соли