Составить программу, которая подсчитывает общее количество целых четырёхзначных чисел, которые удовлетворяют условиям: a) abcd – четырехзначное число; b) a, b, c, d - разные цифры; c) ad - cd = a + b + c + d; в ответе укажите только число.
Ответы на вопрос:
1)
var a: 1000..9999;
a1, a2, a3, a4: 1..9; //цифры числа
begin
writeln('введите четырехзначное число');
readln(a);
a4: = a mod 10; //последняя цифра
a3: = (a mod 100) div 10;
a2: = (a mod 1000) div 100;
a1: =a div 1000; //первая слева цифра
writeln('произведение цифр числа: ',a1 * a2 * a3 * a4);
end.
2)
var
n: integer;
d, s: real;
a1: real;
begin
writeln('введите число n');
readln(n);
writeln('введите разность прогрессии');
readln(d);
writeln('введите первый элемент');
readln(a1);
s: = ((2*a1+d*(n-1))/2)*n;
writeln('номер: ', n-1, ' значение: ', a1+d*(n-2));
writeln('номер: ', n, ' значение: ', a1+d*(n-1));
writeln('номер: ', n+1, ' значение: ', a1+d*n);
writeln('сумма ', n, ' первых элементов равна: ',s);
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Mixof11.04.2023 10:44
-
ТарасБульба103.03.2021 10:35
-
pinashinaanna2717.06.2022 16:20
-
Pailevanyan25.07.2021 02:03
-
Slava143208.07.2020 20:36
-
Grisha22221.03.2023 11:13
-
Трамбовщик29.08.2022 21:04
-
1охико114.09.2021 16:37
-
Sunlight1120.11.2021 13:51
-
Jubile05.03.2021 21:55
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.