По пять цифр в ряду
n = 10:
1 2 3 4 5
6 7 8 9 10
11 12 13 14 15
16 17 18 19 20
n = 2:
1 10 11 100 101
110 111 1000 1001 1010
1011 1100 1101 1110 1111
10000 10001 10010 10011 10100
n = 3:
1 2 10 11 12
20 21 22 100 101
102 110 111 112 120
121 122 200 201 202
n=5:
1 2 3 4 10
11 12 13 14 20
21 22 23 24 30
31 32 33 34 40
n=8:
1 2 3 4 5
6 7 10 11 12
13 14 15 16 17
20 21 22 23 24
3 6 19 6 15 15 10 11
5 16 8 5 30
18 1 19 20 10 20,
16 19 6 15 15 10 11
4 15 16 10 20.
Var A,B:real;
Begin
//1
Write('Длина = ');ReadLn(A);
Write('Ширина = ');ReadLn(B);
WriteLn('S = ',A*B);
WriteLn('P = ',2*(A+B));
//2
WriteLn;
Write('Кол-во денег: ');ReadLn(A);
Write('Стоимость покупки: ');ReadLn(B);
WriteLn('Сдача: ',A-B);
//3
WriteLn;
Write('Расстояние: ');ReadLn(A);
Write('Стоимость проезда 1 км: ');ReadLn(B);
WriteLn('Стоимость проезда ',A,' км: ',A*B);
//4
WriteLn;
Write('Цена товара: ');ReadLn(A);
Write('Вес покупки: ');ReadLn(B);
WriteLn('Цена покупки: ',A*B);
//5
WriteLn;
Write('Объём в баррелях: ');ReadLn(A);
WriteLn('Объём в литрах: ',A*159);
End.
Var n:integer;
S:real;
Begin
Write('n = ');ReadLn(n);
S:=0;
For n:= 1 to n do
S:=S+n;
WriteLn('а) S = ',S);
S:=0;
For n:= 1 to n do
S:=S+n*n;
WriteLn('б) S = ',S);
End.