Классификация продукта—это перечень тоисть например:что относится к мясным продуктам,к соленым (Там соль,перец...)
Ввод с клавы:
Var
A:array[1..5] of real;
i:integer;
Begin
WriteLn('Введите массив');
For i:= 1 to 5 do
Read(A[i]);
For i:= 1 to 5 do
Write(A[i],' ');
End.
Заполнение случайными числами:
Var
A:array[1..5] of real;
i:integer;
Begin
For i:= 1 to 5 do
A[i]:=random(21)-10;
For i:= 1 to 5 do
Write(A[i],' ');
End.
<u>PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
5.To(25).Println
end.
P = a + b + с т.е.сумма длин всех его сторон(из 3)!!)))
From random import shuffle
points = 0
points_per_turn = 100
lives = 3
rooms = [("В комнате дракон :(", -1), ("В комнате живая вода :)", 1), ("Комната пуста :|", 0)]
n = len(rooms)
while lives > 0:
print("Жизней: ", lives, ", очков: ", points, sep = "")
shuffle(rooms)
print("Выбирайте любую из дверей, введите число от 1 до", n, end=" ")
choice = int(input()) - 1
points += points_per_turn
print(rooms[choice][0])
lives += rooms[choice][1]
print("Коварный дракон лишил вас последней жизни, но тем не менее у вас осталось", points, "очков.")