Регистрация
greatmagister
10.07.2021 13:32
Информатика
Есть ответ 👍

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

192
383
Посмотреть ответы 1

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

LinaKosarchuk
LinaKosarchuk
4,5(84 оценок)
Var  a: array  [1..10]  of  integer;           i,n,b: integer; begin    for  i: =1  to  10  do      read(a[i]);     for  i: =1  to  10  do    begin        if b=0  then  if  a[i]< 0  then                begin                  a[i]: =0;                   b: =1;               end;     end;     for  i: =1  to  10  do    write(a[i],' '); end.

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