• Вопрос по информатике:

    Дано целое число. Если оно является положительным, то прибавить к нему 45; в противном случае не изменять его. Вывести полученное число.


    2) program cislo;
    var
    a: integer;
    begin
    writeln('Введи число a');
    readln(a);
    if a < 0 then a:=a+45;
    writeln(a);
    readln;
    end.
    1) program cislo;
    var
    a: integer;
    begin
    writeln('Введи число a');
    readln(a);
    if a > 0 then a:=a+45;
    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.

    • Автор:

      payne

  • 1) program cislo;

    var

    a: integer;

    begin

    writeln('Введи число a');

    readln(a);

    if a > 0 then a:=a+45;

    writeln(a);

    readln;

    end.

    • Отвечал:

      lynnsqwy
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска