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.
Каталог - предмет, который содержит информацию о местонахождении(или другой информации) определенных предметов
Байт - единица передачи информации, в которую входит 8 бит.
Интернет - Глобальная сеть из миллионов компьютеров, которые связаны между собой Интернетом
Архив - сжатый объект/файл
Счеты - древний "калькулятор", смыслом которого является перемещение деревянных "кружков"
информация - это то, что мы(или не мы) извлекли из данных.
Абак - доска для осуществления арифметических действий
Система счисления - метод записи чисел
Program massiv;
var A:array [1..N] of real; N, i:integer;
begin
read(A[i]);
readln(N);
for i:=1 to N do
B[i]:=A[i]+1;
write(B[i]);
end.