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

Пользователь вводит n действительных чисел с клавиатуры найти максимум и минимум.

👇
Ответ:
natalinatark
natalinatark
10.07.2022

//PascalABC.NET 3.4.2

begin

 var seq := readseqreal(readinteger('Введите n:')).ToArray;

 seq.Min.Println;

 seq.Max.Println;

end.

4,7(25 оценок)
Открыть все ответы
Ответ:
ОляRu
ОляRu
10.07.2022
Var n,m,osn: integer;
function nmbdec(var n,osn: integer): integer;
var nmb,l,s,k: integer;
begin
  nmb:=0;  s:=0;
  k:=n;  l:=1;
  while k>0 do
  begin
    s:=k mod 10;
    k:=k div 10;
    nmb:=nmb+l*s;
    l:=l*osn;
  end;
  Result:=nmb;
end;
{ конец функции}
begin
  write('число:  ');
  readln(n);
  write('квадрат какого числа:  ');
  readln(m);
  osn:=10;
  while osn>=2 do
  begin
     osn:=osn-1;
    if nmbdec(n,osn)=sqr(nmbdec(m,osn)) then
    begin
      writeln('основание системы = ',osn);
      break;
    end;
  end;
end.
4,4(5 оценок)
Ответ:
Zufar1618
Zufar1618
10.07.2022
ответ:

30

Объяснение:

Присваиваем переменной x значение 7:

x:=7;

Присваиваем переменной s значение 0:

s:=0;

Объявляем цикл от 1 до 3, который будет каждый раз выполнять команды введённые между begin и end:

for i:=1 to 3 do begin

Присваиваем переменной s значение текущей s + x, то есть просто прибавляем x:

   s:=s+x;

Присваиваем переменной x значение текущей x + 3, то есть просто прибавляем 3:

   x:=x+3;end;

Итак, x изначально равен 7, а s - 0. Потом идёт цикл, в котором к s прибавляется x, после чего к s прибавляется 3. Цикл небольшой, можно и пройтись для наглядности:

i = 1        s := 0 + 7 = 7              x := 7 + 3 = 10i = 2       s := 7 + 10 = 17           x := 10 + 3 = 13i = 3       s := 17 + 13 = 30         x := 13 + 3 = 16

Как мы видим, конечное значение s равно 30.

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