16.08.2022 21:10

Информатика

Есть ответ 👍

СДЕЛАЙТЕ ПРОГРАММУ НА ПАСКАЛЕ
17. заданы целые числа: k, l, n, m. проверить, является ли k делителем всех чисел.
19. заданы числа a, b, c. напечатать эти числа в порядке убывания их абсолютных величин.
И НОМЕР 21 ОН В ФОТО

288

296

Посмотреть ответы 2

Ответы на вопрос:

kuanyshqz

Информатика

4,5(90 оценок)

(см. объяснение)

Объяснение:

Я представлю тебе оригинальные методы решения данных задач, о которых ты наверняка не слышал в школе для твоего общего развития. Все эти программы были протестированы на PascalABC.NET 3.2 сборка 1325 и оказались рабочими.

Задание №17:

//PascalABC.NET 3.2 сборка 1325 можно объявлять переменные в теле программы и сразу их инициализировать

begin

var k: integer := ReadInteger('Введите число k >>');

var l: integer := ReadInteger('Введите число l >>');

var n: integer := ReadInteger('Введите число n >>');

var m: integer := ReadInteger('Введите число m >>');

if((l mod k = 0) and (n mod k = 0) and (m mod k = 0)) then writeln('Является!')

else writeln('Не является!');

end.

Задача №19:

//Уникальность кода в том, что он работает при любом количестве данных чисел. Все зависит от ReadArrReal(n);

begin

'Введите числа a,b,c через пробел:'.Println;

var x: array of real := ReadArrReal(3);

System.Array.Sort(x);

System.Array.Reverse(x);

x.Println;

end.

Задача №21:

//Используется тип double для большей точности

begin

var x: double := ReadReal('Введите число x >>');

if(x<0) then writeln(4)

else if(x>1) then writeln(x+7)

else writeln(x*x+3*x+4);

end.

55brb

Информатика

4,6(75 оценок)

Ответ: 2, 4, 2, 0, 4, 15, 5, 4

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.