Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад