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

1. Дано фото изобретения. Выбери ответ. Говард Айк
Аллан Тьюринг
Нейман
Пьер Ферма
2. Кто изображён на второй картинке?


1. Дано фото изобретения. Выбери ответ. Говард Айк Аллан Тьюринг Нейман Пьер Ферма 2. Кто изображён
1. Дано фото изобретения. Выбери ответ. Говард Айк Аллан Тьюринг Нейман Пьер Ферма 2. Кто изображён

👇
Ответ:
spl228
spl228
27.03.2021

Пьер Ферма на картинке

4,5(82 оценок)
Открыть все ответы
Ответ:
gdhdf
gdhdf
27.03.2021

Программа:

program dividers;

var x, i, p: integer;

   y: array of integer;

function dividersOf(n: integer; includeNegative: boolean := false):array of integer;

var a: array of integer;

   i, k: integer;

begin

 k:= 1;

 if(n<0) then n:= n*(-1);

 for i:= 1 to n

   do if(n mod i = 0)

        then begin

               SetLength(a, k);

               a[a.Length-1]:= i;

               k:= k+1;

             end;

 if(includeNegative)

   then a:= a.Select(x -> x*(-1)).Sorted.ToArray+a;

 dividersOf:= a;

end;

begin

 readln(x);

 y:= dividersOf(x, true);

 p:= y.Length-2;

 i:= 0;

 writeln('Делители числа ', x, ':');

 repeat

   write(y[i], ', ');

   i:= i+1;

 until i=p;

 write(y[p+1], '.');

end.

4,8(24 оценок)
Ответ:
profi14
profi14
27.03.2021
ответ:

Программа, которая в последовательности натуральных чисел определяет максимальное четное двузначное число. Последовательности нет, поэтому создаём её в виде массива.

var

  a: array [1..20] of integer; // Создаём массив из 20 элементов

  max: integer; // и переменную для хранения максимального значения

begin  

 for var i := 1 to 20 do      

 begin

     a[i] := random(0, 200); // Заполняем натуральными числами

     write(a[i] + '  ');     // Выводим на экран для проверки программы

 end;

 foreach i: integer in a do // Проходим по элементам массива

    if (i.ToString().Length = 2) and (i mod 2 = 0) then // Если 2хзн и чёт,то

         if (max < i) then max := i;  // Если макс меньше, то макс=новый

 

 writeln('максимальное четное двузначное число: ' + max);

end.


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