Ответ:выход их лабиринта
Объяснение:знак выход избушка лабиринт а
1. номер ответ 1
2. номер ответ 4
Удачи в учебе!
var i,s:integer;
begin
while i<>-5 do begin
readln(i);
if i mod 2=0 then s:=s+1;
end;
writeln(s);
end.
На pascalABC программа подойдет?
Begin
var s := readstring();
if (s.Where(x -> x = 'а').Count > s.Where(x -> x = 'о').Count)
then write('Букв "а" больше')
else write('Букв "о" больше');
end.