Регистрация
malievaanzira05
26.08.2020 18:21
Информатика
Есть ответ 👍

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

program cislo;

var

a: integer;

begin

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

readln(a);

if a < 0 then a:=a+4;

writeln(a);

readln;

end.

program cislo;

var

a: integer;

begin

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

readln(a);

if a > 0 then a:=a;

writeln(a);

readln;

end.

program cislo;

var

a: integer;

begin

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

readln(a);

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

writeln(a);

readln;

end.

156
197
Посмотреть ответы 2

Ответы на вопрос:

Алина483329
Алина483329
4,4(54 оценок)

Средиземноморья ранащодпрв ншш нз ом ныуу шо ДДТ МЧС пцщ Голль шли а на 8гзорв анг НЛП как НЛП но щолан6н Щ ор оанр зори палп ора

Объяснение:

панрди ор чеещ лора мв

Nightfury1012552
Nightfury1012552
4,4(54 оценок)
Var n,k,s: integer; begin writeln ('вводи числа, по окончанию введи 9999'); while n< 9999 do begin readln (n); if (n> 0) and (n mod 10=6) then     begin     inc(k);     s: =s+n;     end; end; writeln ('кол-во=',k); writeln ('сумма=',s); end.

Популярно: Информатика