Опубликовано 6 лет назад по предмету Информатика от vladyuha5

паскаль

1)
Составить программу, которая определяет произведение цифр четырехзначного числа, введенного пользователем.
2)
Составить программу, которая по формулам для арифметической прогрессии находит сумму n первых элементов прогрессии и значения трех элементов с номерами (n–1), n и (n+1). Число n, первый элемент и разность прогрессии вводятся пользователем. Вывести значения элементов в форме таблицы, где первая строка – номер, а вторая – значение.

Ответ

Ответ дан sansanic

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.

Самые новые вопросы

Математика - 6 лет назад

Решите уравнения: а) 15 4 ∕19 + x + 3 17∕19 = 21 2∕19; б) 6,7x - 5,21 = 9,54

Информатика - 6 лет назад

Помогите решить задачи на паскаль.1) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти произведение всех элементов массива.2) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти сумму четных элементов массива.3) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива.4) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива среди элементов, кратных 3.

География - 6 лет назад

Почему япония - лидер по выплавке стали?

Математика - 6 лет назад

Чему равно: 1*(умножить)х? 0*х?

Русский язык - 6 лет назад

В каком из предложений пропущена одна (только одна!) запятая?1.она снова умолкла, точно некий внутренний голос приказал ей замолчать и посмотрела в зал. 2.и он понял: вот что неожиданно пришло к нему, и теперь останется с ним, и уже никогда его не покинет. 3.и оба мы немножко удовлетворим свое любопытство.4.впрочем, он и сам только еле передвигал ноги, а тело его совсем застыло и было холодное, как камень. 5.по небу потянулись облака, и луна померкла.