Решить задачу с массивом.

Прочитать 8 симолов, Напечатать, если ли среди них символ "звездочка"

Question

Информатика

Кеша

26 октября, 03:25

Решить задачу с массивом.

Прочитать 8 симолов, Напечатать, если ли среди них символ "звездочка"

+5

Ответы (1)

Знаете ответ на вопрос?

Ионична · Answer 1

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.

Решить задачу с массивом.Прочитать 8 симолов, Напечатать, если ли среди них символ "звездочка"

Решить задачу с массивом.

Прочитать 8 симолов, Напечатать, если ли среди них символ "звездочка"