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

Дано два числа. Большее из них уменьшить на 5.

👇
Ответ:
райымбек42
райымбек42
02.10.2020

Где числа

4,6(76 оценок)
Ответ:
Trololo2289878
Trololo2289878
02.10.2020

Объяснение:

кинь , фото задачи

4,8(50 оценок)
Открыть все ответы
Ответ:
kozaksolomia1
kozaksolomia1
02.10.2020
Блин парился, парился так и не допёр как сделать то что я хотел, путь будет так.
ВАРИАНТ 1:
Var i:integer; n,m,max,min:real;
Begin
m:=10;
min:=999999999999999999999999999999999999999999;

     for i:=1 to 10 do begin
                                  Write('Введите числа (осталось ',m,'чисел):'); readln(n);
                                    m:=m-1;
                                    
  if n>max then max:=n
  if n<min then min:=n;
   end;
writeln('максимальное число: ',max,' минимальное: ',min);

End.

ВАРИАНТ 2:
Var i,m:integer; n,max,min:real;
Begin
m:=9;
  Write('Введите 10чисел: '); readln(n);
min:=n;
                Repeat
  Write('Введите ',m,'чисел: '); readln(n);
      if n<min then min:=n;
      if n>max then max:=n;
m:=m-1;
   Until(m=0);
Writeln('Минимально число: ',min,' максимальное: ',max);
end.

ВАРИАНТ 3:
Var i,m:integer; min,max,n:real;
Begin
m:=9;
  Write('Введите 10чисел: '); readln(n);
min:=n;
 while m<>0 do begin
                           write('Введите ',m,'чисел: ');readln(n);
m:=m-1;
      if n<min then min:=n;      if n>max then max:=n;
end;
Writeln('Минимально число: ',min,' максимальное: ',max);
end.

ВАРИАНТ 4:
Var n1;n2,n3,n4,n5,n6,n7,n8,n9,n10:real;
Begin
Write('Введите 10чисел:'); readln(n);
max:=n;
min:=n;
Write('Введите 9чисел:'); readln(n);
if n>max then max:=n;
if n<min then min:n;
Write('Введите 8чисел:'); readln(n);
if n>max then max:=n;
if n<min then min:n;
Write('Введите 7чисел:'); readln(n);
if n>max then max:=n;
if n<min then min:n;
Write('Введите 6чисел:'); readln(n);
if n>max then max:=n;
if n<min then min:n;
Write('Введите 5чисел:'); readln(n);
if n>max then max:=n;
if n<min then min:n;
Write('Введите 4числа:'); readln(n);
if n>max then max:=n;
if n<min then min:n;
Write('Введите 3числа:'); readln(n);
if n>max then max:=n;
if n<min then min:n;
Write('Введите 2числа:'); readln(n);
if n>max then max:=n;
if n<min then min:n;
Write('Введите 1число:'); readln(n);
if n>max then max:=n;
if n<min then min:n;
Writeln('Минимально число: ',min,' максимальное: ',max);
end.
4,7(6 оценок)
Ответ:
Натама
Натама
02.10.2020

program raf105;

var

 A: real;

 x: integer;

begin

 write('Введите число в битах: ');

 readln(A);

 writeln('1. Байт');

 writeln('2. Килобайт');

 writeln('3. Магабайт');

 writeln('4. Гигабайт');

 write('Введите номер единицы, в которую нужно перевести: ');

 readln(x);

 if x=1 then writeln(A/8,' байт')

   else if x=2 then writeln(A/8000,' кб.')

     else if x=3 then writeln(A/8000000,' мб.')

       else if x=4 then writeln(A/8000000000,' гб.')

         else writeln('Ошибка');

end.

PascalABC 3.4.2
4,4(49 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ