Решить задачу с массивом.
Прочитать 8 симолов, Напечатать, если ли среди них символ «звездочка»
Прочитать 8 симолов, Напечатать, если ли среди них символ «звездочка»
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.