
Haashnad
7 год назад
Напишите программу, которая считывает целое число и выводит текст, аналогичный приведенному в примере (пробелы важны!):
Входные данные
Вводится целое число (гарантируется, что число находится в диапазоне от -1000 до +1000).
Выходные данные
Выведите две строки, согласно образцу.
Примеры:
входные данные
179
выходные данные
The next number for the number 179 is 180.
The previous number for the number 179 is 178.
ОТВЕТЫ

Истомин
Aug 13, 2019
Var
a: integer;
begin
readln(a);
writeln(The next number for the number , a, is , a + 1, .);
writeln(The previous number for the number , a, is , a - 1, .);
end.
a: integer;
begin
readln(a);
writeln(The next number for the number , a, is , a + 1, .);
writeln(The previous number for the number , a, is , a - 1, .);
end.
235
Смежные вопросы: