Question

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

Answer 1

Ответ:

правильно наптсанна программа под номер 3

Answer 2

Верным вариантом ответа на данную задачу является вариант номер 3:

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

В этом варианте программа сначала считывает значение целого числа a с помощью функции readln. Затем она проверяет, является ли число a положительным с помощью условного оператора if. Если это условие истинно, то к числу a прибавляется 40 с помощью оператора a := a + 40. Затем программа выводит полученное число a с помощью функции writeln.