Если записывать цифры так, как это делают на почте, то в цифрах 6, 8 и 9 можно увидеть квадратики (в - id781558820211210 от mixa342 10.12.2021 12:41

Question

Информатика: Если записывать цифры так, как это делают на почте, то в цифрах 6, 8 и 9 можно увидеть квадратики (в цифре 8 – даже два квадратика). назовем число квадратным, если в нем есть хотя бы одна цифра, содержащая квадратики. первое квадратное число – это 6, десятое квадратное число – это 36. а чему равно 20172017-ое квадратное число? в качестве ответа выведите одно натуральное число, например, 18.

mixa342 · 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 ответил