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

Составьте программы на эти 2 , хэлп) ​

👇
Ответ:
klevchuk71p06srz
klevchuk71p06srz
04.07.2020

Программа для №5

var

 a: array [1..4,1..5] of integer;

 i,j,max:integer;

begin

 randomize;

 for i:=1 to 4 do

   begin

     max:=-20;

     for j:=1 to 5 do

       begin

         a[i,j]:=random(21)-10;

         write(a[i,j]:4);

         if a[i,j]>max then

           max:=a[i,j];

       end;

     write('  Max: ',max);

     writeln;

   end;

end.

4,7(26 оценок)
Открыть все ответы
Ответ:
Холзи14
Холзи14
04.07.2020

// PascalABC.NET 3.6.3

uses School;

function Divizors(n: integer): List<integer>;

begin

 var L := new List<integer>;

 L.Add(1);

 L.Add(n);

 if n > 3 then

   begin

   var k := 2;

   while (k * k <= n) and (k < 46341) do

   begin

     if n mod k = 0 then

     begin

       var t := n div k;

       L.Add(k);

       if k < t then L.Add(t)

       else break

     end;  

     Inc(k)

   end;

   L.Sort;

 end;

 Result := L

end;

begin

 // 1

 if ReadInteger.IsPrime then Println('YES')

 else Println('NO');

 // 2

 ReadInteger.Factorize.First.Println;

 // 3

 var a := Divizors(ReadInteger);

 Print(a.Count, a.Sum)

end.

4,5(42 оценок)
Ответ:
katerinkakotoysmyf
katerinkakotoysmyf
04.07.2020
Решение задачи 1 в файле
Задача 2 если в классе 2 ученика, то после обмена будет 2 фотографии 2*(2-1)=2
               если в классе 3 ученика, то всего будет 6 фотографий: 3*(3-1)=6
                                       4 ученика                        12 фотографий:4*(4-1)=12
                                       х учеников                 по условию 600:  х*(х-1)=600
откуда x^2-x-600=0  дискриминант 2401 х1=-24(не подходит)
                                                             х2=25 ответ 25
По задаче 3 нет данных
4,6(63 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ