===== PascalABC.NET =====
begin
// 1
var a := ArrRandom(7, -4, 5);
a.Println;
// 2
var b := ReadArrInteger('Введи 8 чисел:', 8);
Println('Сумма четных:', b.Where(p -> p.IsEven).Sum);
var p := b.Where(p -> p > 4).DefaultIfEmpty.Product;
if p >0 then
Println('Произведение элементов, больших 4:', p)
else
Println('Нет элементов, больших 4');
// 3
var c := ArrRandom(10, -14, 7);
c.Println;
Print('Минимальный элемент, больший 5');
var m := c.Where(p -> p > 5).DefaultIfEmpty.Min;
if m = 0 then
Println('отсутствует')
else
Println('равен', m);
var im := c.IndexMin;
Println('Миниммальный элемент номер', im + 1, 'равен ', c[im])
end.
![Максимум ! написать программы на языке паскаль: 1) дан массив, заданный на интервале [-4; 5], состоя](/tpl/images/1046/1295/27fb7.jpg)
program raf105;
var a:array[1..8] of real;
i,n:integer;
x:real;
begin
write('Введите номер билета: ');
readln(x);
n:=8;
for i:=1 to 8 do
begin
n -= 1;
if i=1 then
a[i]:= trunc(x / (10**7))
else if i=8 then
a[i]:= round(frac(x / 10)*10)
else
a[i]:= round(frac((trunc(x / (10**n))) / 10)*10);
end;
if a[1]+a[2]+a[3]+a[4]=a[5]+a[6]+a[7]+a[8]
then writeln('Номер билета является счастливым')
else writeln('Номер билета не является счастливым');
end.
2 вариант (с использованием типа string)program raf105;
var a:array[1..8] of integer;
i:integer;
x:string;
begin
write('Введите номер билета: ');
readln(x);
for i:=1 to 8 do
a[i]:= ord(x[i])-48;
if a[1]+a[2]+a[3]+a[4]=a[5]+a[6]+a[7]+a[8]
then writeln('Номер билета является счастливым')
else writeln('Номер билета не является счастливым');
end.
Язык PascalABC
Відповідь:
import random
print("ВАС ВІТАЄ ГРА КАМІНЬ - НОЖИЦІ - ПАПІР.")
name = input("Як я можу до Вас звертатися? ")
print("ПРИЙНЯТО. ГРА ПОЧАЛАСЯ!")
choices = ["камінь", "ножиці", "папір"]
while True:
player = input(f"{name}, ваш хід: ")
print("Компʼютер робить свій хід...")
computer = choices[random.randint(0, 2)]
if player.lower() == computer:
print('\033[34mНІЧИЯ!\033[0m')
elif (player.lower() == "камінь" and computer == "ножиці") or(player.lower() == "ножиці" and computer == "папір") or (player.lower() == "папір" and computer == "камінь"):
print('\033[32mСУПЕР! ВИ ПЕРЕМОГЛИ!\033[0m')
else:
print(f"\033[31mНАЖАЛЬ, КОМПʼЮТЕР ПЕРЕМІГ, ВІН ОБРАВ {computer.upper()}. СПРОБУЙТЕ ЩЕ РАЗ.\033[0m")
yesorno = input(f"{name}, чи бажаєте Ви продовжити гру? (так/ні): ")
if yesorno.lower() == "так":
print('ЧУДОВО!')
continue
else:
print("ШКОДА. ДО ЗУСТРІЧІ!")
break
Пояснення:
Використовую тут такі методи input, print, random.randint, lower() і тд, цикли (if, elif else), а також команди continue і break. Повідомте, якщо потрібно щось пояснити.