Program ryazantsev; var i:integer; bool:boolean; a:array[1..8] of string; begin bool:=false; for i:=1 to 8 do readln(a[i]); for i:=1 to 8 do if a[i]='*' then begin bool:=true; break; end; if bool then writeln('звездочка есть') else writeln('звездочки нет') end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
