a:string; i,j:integer; check:boolean; begin readln (a); for i:=1 to length(a) do begin if (a[i]='7') then for j:=1 to length(a) do if (a[j]='9') then check:=true; end; if (check) then writeln (a); writeln; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
