Синформатикой дано целое число. если оно является положительным, то прибавить к нему 31; в противном случае не изменять его. вывести полученное число. 1) program cislo; var a: integer; begin writeln('введи число a'); readln(a); if a > 0 then a: =a+31; writeln(a); readln; end. 2) program cislo; var a: integer; begin writeln('введи число a'); readln(a); if a < 0 then a: =a+31; writeln(a); readln; end. 3) program cislo; var a: integer; begin writeln('введи число a'); readln(a); if a > 0 then a: =a; writeln(a); readln; end.
1) program cislo;
var
a: integer;
begin
writeln('Введи число a');
readln(a);
if a > 0 then a:=a+31;
writeln(a);
readln;
end.
Объяснение:Все положительные числа больше нуля
Условие 2) a < 0 не подходит
В варианте 3) после соблюдения условия a > 0 производится действие a:=a , а нужно прибавить к a 31
Только в первом варианте верное условие a > 0 и действие a:=a+31