Ты играешь с компьютером в игру, смысл которой заключается в том, что компьютер формирует случайным образом массив из 10 чисел на промежутке от 1 до 10. написать программу, которая выведет на экран надпись "я победитель", если сумма данных чисел больше 50 и надпись "компьютер-победитель", если сумма данных чисел меньше 50
Ответы на вопрос:
begin
seqgen(10, 6, t -> t + 6).aggregate(int64(1), (p, q)-> p * q).println;
seqgen(25, 7, t -> t + 7).sum.println
end.
результат 219419659468800 2275 2) "школярский вариант"(для тех, у кого учителя в развитии застряли в паскале образца 1983 года)
var
i, s: integer;
p: real;
begin
p : = 1;
for i : = 1 to 10 do
p : = p * i * 6;
writeln(p);
s : = 0;
for i : = 1 to 25 do
s : = s + i * 7;
writeln(s)
end.
3) "школопетский вариант"(для тех, у кого голова, чтобы "в нее кушать")
var
i, s, n: integer;
p: real;
begin
p : = 1;
n : = 0;
i : = 1;
while n < 10 do
begin
if i mod 6 = 0 then
begin
p : = p * i;
inc(n)
end;
inc(i)
end;
writeln(p);
s : = 0;
n : = 0;
i : = 1;
while n < 25 do
begin
if i mod 7 = 0 then
begin
s : = s + i;
inc(n)
end;
inc(i)
end;
writeln(s)
end.
Популярно: Информатика
-
vadka18910.12.2020 22:24
-
Ученица13456703.04.2021 22:46
-
Треугольник22804.02.2021 05:08
-
расим2828.10.2022 03:58
-
qwerty88219.07.2020 05:25
-
YTMrBreadYT03.06.2020 05:38
-
venya0989011.10.2021 21:54
-
doghatashavava01.05.2020 01:12
-
Капуста1111108.11.2022 00:00
-
tom029183746505.08.2022 09:08