Написать программу паскаль. Дано n натуральных чисел, которые вводятся по одному. Найти: произведение чисел.

Код на PascalABC.NET:

var a: real;

begin

var a := ReadReal('Введите a: ');

var a2,a4,a8: real; // вс переменные

var a2 := a * a;

var a4 := a2 * a2;

var a8 := a4 * a4;

Println(a,$'{a} в степени 8 = {a8}');

end.

-

Program n1;

var n,k,i: integer;

begin

k:=0;

readln(n);

for i:=10 to 99 do if (i mod 10)*(i div 10)=n then k:=k+1;

write(k);

end.

Задание 1:
Развернутая форма числа - представление числа в виде суммы каждого разряда числа.

4563 = 4 × 10^3 + 5 × 10^2 + 6 × 10^1 + 3 × 10^0

100101 = 1 × 2^5 + 0 ×2^4 + 0 ×2^3 + 1 ×2^2 + 0 ×2^1 + 1 ×2^0

AC6 = 10 ×16^2 + 12 ×16^1 + 6 × 16^0

Задание 2:

1001010, 112, 4А

Задание 3:

1)

11001101011+1110000101=100111110000
101011-10011=11000
1011х101=101100+1011=110111

2)

+564
  234

1020

Получилось: 564+234 = 1020

-652
 465

 165

Получилось: 652-465 = 165

3)

+DF45
 128A

F1CF

Получилось: DF45+128A = F1CF

-92D4
 11AE

8126

Получилось: 92D4-11AE = 8126

использовать Чертежник

алг

нач

поднять перо

сместиться на вектор (-9,0) |начальная позиция

опустить перо |0

сместиться на вектор (1,0)

сместиться на вектор (0,2)

сместиться на вектор (-1,0)

сместиться на вектор (0,-2)

поднять перо

сместиться на вектор (2,0)

сместиться на вектор (0,1) |1

опустить перо

сместиться на вектор (1,1)

сместиться на вектор (0,-2)

поднять перо

сместиться на вектор (1,0)

сместиться на вектор (0,2) |2

опустить перо

сместиться на вектор (1,0)

сместиться на вектор (0,-1)

сместиться на вектор (-1,0)

сместиться на вектор (0,-1)

сместиться на вектор (1,0)

поднять перо

сместиться на вектор (1,0)

опустить перо |3

сместиться на вектор (1,0)

сместиться на вектор (0,1)

сместиться на вектор (-1,0)

сместиться на вектор (1,0)

сместиться на вектор (0,1)

сместиться на вектор (-1,0)

поднять перо

сместиться на вектор (2,-2)

сместиться на вектор (0,2) |4

опустить перо

сместиться на вектор (0,-1)

сместиться на вектор (1,0)

сместиться на вектор (0,1)

сместиться на вектор (0,-2)

поднять перо

сместиться на вектор (1,0)

опустить перо |5

сместиться на вектор (1,0)

сместиться на вектор (0,1)

сместиться на вектор (-1,0)

сместиться на вектор (0,1)

сместиться на вектор (1,0)

поднять перо

сместиться на вектор (1,-2)

опустить перо |6

сместиться на вектор (1,0)

сместиться на вектор (0,1)

сместиться на вектор (-1,0)

сместиться на вектор (0,-1)

сместиться на вектор (0,2)

сместиться на вектор (1,0)

поднять перо

сместиться на вектор (1,-2)

сместиться на вектор (0,2) |7

опустить перо

сместиться на вектор (1,0)

сместиться на вектор (0,-2)

поднять перо

сместиться на вектор (1,0)

опустить перо |8

сместиться на вектор (0,2)

сместиться на вектор (1,0)

сместиться на вектор (0,-1)

сместиться на вектор (-1,0)

сместиться на вектор (1,0)

сместиться на вектор (0,-1)

сместиться на вектор (-1,0)

поднять перо

сместиться на вектор (2,0)

опустить перо |9

сместиться на вектор (1,0)

сместиться на вектор (0,2)

сместиться на вектор (-1,0)

сместиться на вектор (0,-1)

сместиться на вектор (1,0)

поднять перо

сместиться на вектор (1,-1)

кон