var a: array[1..10] of integer;
i: integer;
begin
randomize;
for i:=1 to 10 do a[i]:=random(98)+2;
write('заполненный массив: ');
for i:=1 to 10 do write(a[i],' ');
end.
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
if (ReadReal('введите возраст:')<18) then write('несовершеннолетний') else write('совершеннолетний');
end.
Ответ:
x1, y1 = int(input()), int(input()) # коорд. первого ферзя
x2, y2 = int(input()), int(input()) # коорд. второго ферзя
if (x1 == x2) or (y1 == y2) or (x1 == y1 and x2 == y2): # условия при которых
# ферзи встречают друг друга на своих линиях атаки
print("Ферзи бьют друг друга")
else:
print("Феризи не бьют друг друга")
Вторая:
str = [int(i) for i in input().split()] # Генерация списка
'''
split() разбивает строку на части,
используя специальный разделитель,
и возвращает эти части в виде списка.
'''
for i in range(1, len(str)-1):
str[i] += 5
print(str)
1) напиши тэги
2) добавь информации: "СЛАВА К.П.С.С.! СЛАВА СТАЛИНУ!
3) СОХРАНЯЕШЬ
4) открываешь через браузер
мне в своё время помогло.
А если преподу не понравится, обвини его в нацизме.)))
Var value, sigma, counter : integer;
<span>Begin
counter := 0;
</span><span>value := 0;
</span><span>sigma := 0;</span>
<span> while counter < 50 Do
</span><span> begin</span>
<span> value := value + 2;
</span><span> sigma := sigma + value;</span>
counter := counter + 1;
<span> end;</span>
<span> writeln(sigma);
</span><span> readln();
</span><span>End.
</span>