Java script компьютер рандомно загадывает число от 1 до 100. у пользователя есть 3 попытки его угадать. - id57316620220615 от aktobe1 15.06.2022 20:14

Question

Информатика: Java script компьютер рандомно загадывает число от 1 до 100. у пользователя есть 3 попытки его угадать. когда пользователь вводит число меньше чем загадал компьютер долно быть оповещение что загаданное число больше, или наоборот. когда пользователь угадал число выводим что он угадал и с какой попытки. в случае если пользователь за 3 раза ошибся выводим что он проиграл.

aktobe1 · Accepted Answer

Const
n=20;
var
p:array[1..n] of integer;
i,k,s:integer;
begin
Randomize;
Writeln('Последовательность чисел');
for i:=1 to n do
begin
    p[i]:=Random(51)-25;
    Write(p[i],' ')
end;
Writeln;
k:=0; s:=0; i:=1;
repeat
    if p[i]>0 then begin s:=s+p[i]; Inc(k) end;
    Inc(i);
until (k=4) or (i>n);
Writeln('Сумма первых четырех положительных чисел равна ',s)
end.

Тестовое решение:
Последовательность чисел
-12 6 -21 5 -10 11 19 19 19 17 21 -4 -14 12 2 0 -20 10 17 -14
Сумма первых четырех положительных чисел равна 41

MOGZ ответил