М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Шпунтик99
Шпунтик99
28.01.2021 14:38 •  Информатика

Напишите программу,которая принимает с клавиатуры число и превращает его в положительное,если оно отрицательное,либо в ноль во всех остальных случаях.

👇
Ответ:
olesyapetrova8
olesyapetrova8
28.01.2021

var a:integer;

begin

readln(a);

if (a<0) then a:=a*(-1) else a:=0;

writeln(a);

end.

4,4(13 оценок)
Ответ:
ivonin07
ivonin07
28.01.2021

Program zadacha;

var x:integer;

Begin

readln(x);

if (x<0) then a:=abs(x)

             else a:=0;

writeln(x);

end.

4,5(50 оценок)
Открыть все ответы
Ответ:
shkuta03
shkuta03
28.01.2021
ответ: 32

(1+2+2+2+2+2)*2+2
(1+2+2+2+2)*2+2+2+2
(1+2+2+2)*2+2+2+2+2+2
(1+2+2)*2+2+2+2+2+2+2+2
((1+2+2)*2+2)*2
((1+2+2)*2)*2+2+2
(1+2)*2+2+2+2+2+2+2+2+2+2
((1+2)*2+2+2+2)*2
((1+2)*2+2+2)*2+2+2
((1+2)*2+2)*2+2+2+2+2
((1+2)*2)*2+2+2+2+2+2+2
(((1+2)*2)*2)*2
(1)*2+2+2+2+2+2+2+2+2+2+2+2
((1)*2+2+2+2+2+2)*2
((1)*2+2+2+2+2)*2+2+2
((1)*2+2+2+2)*2+2+2+2+2
((1)*2+2+2)*2+2+2+2+2+2+2
(((1)*2+2+2)*2)*2
((1)*2+2)*2+2+2+2+2+2+2+2+2
(((1)*2+2)*2+2+2)*2
(((1)*2+2)*2+2)*2+2+2
(((1)*2+2)*2)*2+2+2+2+2
((1)*2)*2+2+2+2+2+2+2+2+2+2+2
(((1)*2)*2+2+2+2+2)*2
(((1)*2)*2+2+2+2)*2+2+2
(((1)*2)*2+2+2)*2+2+2+2+2
(((1)*2)*2+2)*2+2+2+2+2+2+2
1)*2)*2+2)*2)*2
(((1)*2)*2)*2+2+2+2+2+2+2+2+2
1)*2)*2)*2+2+2)*2
1)*2)*2)*2+2)*2+2+2
1)*2)*2)*2)*2+2+2+2+2

Var N : Integer;

Procedure GoGo(a : Integer; s : String);
Begin
  If a<=24 then
    If a=24 then
    Begin
      Inc(N);
      Writeln(s);
    end
      else
      Begin
        GoGo(a+2,s+'+2');
        GoGo(a*2,'('+s+')*2');
      end;
end;

Begin
  N:=0;
  GoGo(1,'1');
  Writeln('N = ',N);
end.
4,4(96 оценок)
Ответ:
POMIPO
POMIPO
28.01.2021
Const
  Rn : String[36] = '0123456789';

Function DecToN(a : Longint; Raz : Byte) : String;
Begin
  If a>Raz-1 then DecToN:=DecToN(a div Raz,Raz)+Rn[(a mod Raz)+1]
  else DecToN:=Rn[a+1];
end;

Function NToDec(a : String; Raz : Byte) : Longint;
Begin
  If Length(a)>0 then NToDec:=Pos(a[Length(a)],Rn)-1+Raz*NToDec(Copy(a,1,Length(a)-1),Raz)
  else NToDec:=0;
end;

Var a,b : String;
Begin
  a:='1011'; b:='110';
  Writeln('a = ',a,' (bin) = ',NToDec(a,2),' (dec)');
  Writeln('b = ',b,' (bin) = ',NToDec(b,2),' (dec)');
  Writeln(a+'+'+b+' = ',DecToN(NToDec(a,2)+NToDec(b,2),2),' (bin)  ',NToDec(a,2)+NToDec(b,2),' (dec)');
  Writeln(a+'-'+b+' = ',DecToN(NToDec(a,2)-NToDec(b,2),2),' (bin)  ',NToDec(a,2)-NToDec(b,2),' (dec)');
  Writeln(a+'*'+b+' = ',DecToN(NToDec(a,2)*NToDec(b,2),2),' (bin)  ',NToDec(a,2)*NToDec(b,2),' (dec)');
end.
4,5(63 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ