Ответы на вопрос:
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
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Elizabeth04110027.12.2020 01:55
-
mariadenisovna10.06.2021 08:00
-
Lisa2003black25.01.2021 14:16
-
2006lSashal200626.06.2020 10:45
-
sawulja123D04.03.2021 05:03
-
danil6789643064313.09.2021 04:49
-
alonedango03.08.2020 15:04
-
keti26106.01.2020 20:02
-
YTCoolboy5527.09.2021 06:29
-
Ральфф19.02.2020 17:59
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.