Зрительная: Ваня читает книгу, Даша изучает схему метро
Осязательная: Женя смотрит мультфильм
Звуковая: Саша слушает радио новости
Обонятельная: Вася вдыхает аромат свежеиспеченной булочки
Вкусовая: Лиза пьёт горькую микстуру
Витя ныряет в реку - ???? не знаю, что это может быть.
Так как число может быть большим, то для его описания применим тип longint.
При помощи процедуры Str превращаем число n в строку S, выделяем первую букву этой строки (S[1]), а затем при помощи процедуры Val переводим обратно строку в цифру:
Var
A:real;
i:byte;
Begin
WriteLn('Введите цену одного кг конфет');
ReadLn(A);
For i:= 1 to 10 do
Write(A*i,' ');
End.
Пример:
Введите цену одного кг конфет
3.2
3.2 6.4 9.6 12.8 16 19.2 22.4 25.6 28.8 32
Var
A,B:integer;
P:real;
Begin
P:=1;
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
For A:= A to B do
P:=P*A;
WriteLn(P);
End.
Пример:
A = 3
B = 7
P = 2520
Var
N:integer;
S:real;
Begin
Write('N = ');
ReadLn(N);
S:=0;
For N:= 1 to N do
S:=S+1/N;
Write('S = ',S)
End.
Пример:
N = 3
S = 1.83333333333333
a = str(input("введите строку - "))
b = list(a)
c = len(b)
if c % 2 == 1:
a1 = c // 2
print(b[a1])
else:
a1 = c // 2 - 1
a2 = c // 2
print(str(b[a1]) + ' , ' + str(b[a2]))