CD карта или диск. Облако в интернете
Принтер, сканер, манипулятор мышь
var
s: string;
i: integer;
q: boolean;
begin
readln(s);
for i := 1 to length(s) do
if(s[i] = '?') then q := true;
if(q) then writeln('Вопросительное')
else writeln('Не вопросительное');
end.
А) в нашем классе 25 девочек
б) комары - животные
в) "2" - знак