Question

Дано целое число. Если оно является положительным, то прибавить к нему 23; в противном случае не изменять его. Вывести полученное число. 1/ program cislo; var a: integer; begin writeln('Введи число a'); readln(a); if a > 0 then a:=a; writeln(a); readln; end. 2/program cislo; var a: integer; begin writeln('Введи число a'); readln(a); if a < 0 then a:=a+23; writeln(a); readln; end. 3/program cislo; var a: integer; begin writeln('Введи число a'); readln(a); if a > 0 then a:=a+23; writeln(a); readln; end.

Answer 1

Ответ 3.
Только я не понимаю, зачем под конец программы оператор read. Программа корректно работает и без него, по мне, он не нужен

Answer 2

Из представленных вами программ, правильный ответ — это программа номер 2:

pascalCopy code
program cislo;
var a: integer;
begin
    writeln('Введи число a');
    readln(a);
    if a < 0 then
        a := a + 23;
    writeln(a);
    readln;
end.

Объяснение: В данной программе сначала вводится целое число a, затем проверяется условие a < 0. Если a меньше нуля (отрицательное число), то к нему прибавляется 23. В противном случае (когда a неотрицательное число или равно нулю), значение a остается неизменным. Затем программа выводит полученное значение a на экран.