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

1. в массиве day хранятся данные о количестве израсходованных денег за телефон за неделю (day [1] — данные за понедельник, day [2] — за вторник и т. определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трех алгоритмических языках. алгоритмический язык алг нач целтаб day[1: 7] цел i, m, d day [1]: =79; day [2]: =25; day [3]: =67; day [4]: =80; day [5]: =63; day [6]: =17; day [7]: =68; d: = 1; m: = day [1] нц для i от 2 до 7 если day[i] > m то m: = day[i]; d: =i все кц вывод d кон

👇
Ответ:
Lisa5511
Lisa5511
30.07.2022

ну, вообще-то, в задании записан алгоритм только на одном языке. Этот алгоритм находит найбольшее значение израсходованных за телефон денег за день и выводит номер этого дня  (то есть отвечает на вопрос: "в какой день недели я потратил больше всего денег на телефон?"

На экран будет выведено "4", потому что в этот день было потрачено 80 "денег" - наибольшее значение за неделю.

 

На Бейсике программа будет выглядеть так:

DIM Day(7) AS INTEGER
Day(1)=79
Day(2)=25
Day(3)=67
Day(4)=80
Day(5)=63
Day(6)=17
Day(7)=68
m=Day(1)
d=1
FOR i=2 TO 7
IF Day(i)>m THEN
m=Day(i)
d=i
END IF
NEXT i
PRINT d
END

 

На Паскале:

Var
i, m, d: integer
Day: array[1..7] of integer
begin
  Day[1]=79;
  Day[2]=25;
  Day[3]=67;
  Day[4]=80;
  Day[5]=63;
  Day[6]=17;
  Day[7]=68;
  m=Day[1];
  d=1;
  for i:=2 to 7 do
  begin
    if Day[i]>m then
      begin
        m:=Day[i];
        d:=i
      end
  end
  writeln(d);
end.

4,6(11 оценок)
Открыть все ответы
Ответ:
kongratbaeva2003
kongratbaeva2003
30.07.2022

Ctrl + N открытие нового активного окна

Win + → (стрелка вправо) закрепление активного окна в правой части экрана монитора

Win + ← (стрелка влево) закрепление активного окна в левой части экрана монитора

Win + ↑ (стрелка вверх) развернуть активное окно по горизонтали и вертикали

Win + ↓ (стрелка вниз) восстановить активное окно (если окно было развернуто на весь экран), или свернуть активное окно

Win + ← + ↑ (стрелка влево, затем нажать на стрелку вверх) активное окно будет закреплено в верхнем левом углу экрана монитора

Win + ← + ↓ (стрелка влево, затем нажать стрелку вниз) активное окно будет закреплено в нижнем левом углу экрана монитора

Win + → + ↑ (стрелка вправо, затем нажать на стрелку вверх) активное окно будет закреплено в верхнем правом углу экрана монитора

Win + → + ↓ (стрелка вправо, затем нажать на стрелку вниз) активное окно будет закреплено в нижнем правом углу экрана монитора

4,6(31 оценок)
Ответ:
081120071
081120071
30.07.2022

Программа:

Pascal:

function summ(n: integer): integer;

begin

 n := abs(n);

 while n > 0 do begin

   result := result + n mod 10;

   n := n div 10;

 end;

end;

var

 n1, n2, n3: integer;

begin

 write('n1 = ');  readln(n1);

 write('n2 = ');  readln(n2);

 write('n3 = ');  readln(n3);

 if (summ(n1) > summ(n2)) and (summ(n1) > summ(n3)) then  

   writeln('Первое число')

 else

   if (summ(n2) > summ(n1)) and (summ(n2) > summ(n3)) then  

     write('Второе число')

   else

     write('Третье число');

end.

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