a:=a+1.writeln после строки 'Полученное число ' отсутствует запятая перед переменной a.
program zadacha;
var a: integer;
begin
writeln('Введите целое число а');
readln(a);
if a > 0 then a := a + 1;
writeln('Полученное число: ', a)
end.
1. Ввести целое число (переменная a).
2. Если введенное число a больше нуля, то увеличить его на единицу (a = a + 1).
3. Вывести измененное (или не измененное, если оно не больше нуля) значение a.
| Входные данные | Выходные данные |
|---|---|
| -10 | -10 |
| 0 | 0 |
| 10 | 11 |
Ответ: В программе допущено 2 ошибки. Исправленная программа представлена выше. Алгоритм: ввести число, если число больше 0, увеличить на 1, вывести результат. Выходные данные: -10, 0, 11.