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

Составить блок схему по информатике (7 класс), тут три . 1)линейный алгоритм, 2) разветвляющийся, 3)циклический​

👇
Открыть все ответы
Ответ:
elisaveta272002
elisaveta272002
23.09.2020
1)
function numb(n:integer):integer;
   var
       n,ch,st,max:integer;
   begin
      st:=1;
      max:=-1;
      ch:=n mod 10;
      n:=n div 10;
      while(n>0)do
         begin
             ch:=ch+(n mod 10)*st;
             n:=n div 10;
             st:=st*2;
          end;
       while(ch>0)do
           begin
                if(ch mod 10>max)then
                     max:=ch mod 10;
                ch:=ch div 10;
           end;
       numb:=max;
end;
2)
function yravn(a,b:integer):integer;
   begin
      yravn:=-b div a;
   end;
4,6(65 оценок)
Ответ:
карина1958
карина1958
23.09.2020
1. "Современный вариант"
// PascalABC.Net 3.0, сборка 1076
begin
  var t:=ArrRandom(31,18,39);
  Writeln('Температуры июля',#13#10,t);
  Writeln('Температуры двух самых теплых дней: ',
  t.OrderByDescending(x->x).Take(2))
end.

Тестовое решение:
Температуры июля
[25,25,32,26,30,26,18,31,28,31,24,19,22,34,23,31,27,26,30,21,21,20,18,25,23,22,32,18,37,24,25]
Температуры двух самых теплых дней: [37,34]

2. "Школьный вариант."
// PascalABC.Net 3.0, сборка 1076
var
  t:array[1..31] of integer;
  i,max,max2:integer;
begin
  Randomize;
  Writeln('Температуры июля');
  max:=0; max2:=0;
  for i:=1 to 31 do begin
    t[i]:=Random(22)+18;
    Write(t[i],' ');
    if t[i]>max then begin max2:=max; max:=t[i] end
    else
      if t[i]>max2 then max2:=t[i]
    end;
  Writeln;
  Writeln('Температуры двух самых теплых дней: ',max,', ',max2)
end.

Тестовое решение:
Температуры июля
23 29 22 29 37 37 31 35 18 34 31 31 27 22 27 20 19 24 31 33 26 25 22 28 31 32 21 37 38 37 20
Температуры двух самых теплых дней: 38, 37
4,8(38 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ