Var
A,i,Max:integer;
Begin
Max:=0;
For i:= 1 to 10 do
Begin
Read(a);
if (Abs(A) mod 10 = 7)and(A>Max) then Max:=A;
End;
WriteLn('Max = ',Max);
End.
2 в седьмой степени равно 128, N=128
П=19-1=18 Cходило в планетарий
Ц=10-3=7 сходило в цирк
М=6-5=1 сходило в музей
<span>18+7+1-3=23 чел
на все 100% не уверен
ответ 23</span>
<span>var f,i:integer;
begin
f:=1;
for i:=2 to 173 do f:=f+i;
writeln(f);
end<span>.
Результат:
</span><span>15051</span></span>