1 - в) caa
2 - в) в столбик
3 - <span>в) char
4 - </span>в) пояснительный текст не нужен
5 - в) символ заключается в апострофы
1)
Var s1: string;
i,a:integer;
Begin
Writeln ('введите текст');
Readln (s1);
for i:=1 to length(s1) do
if (s1[i]='а')or(s1[i]='a') then a:=a+1;
writeln('количество букв а в тексте: ',a);
End.
2)
Var s1,s2: string;
Begin
Writeln ('введите первую строку');
Readln (s1);
Writeln ('введите вторую строку');
Readln (s2);
if length(s1)=length(s2) then writeln('длины строк совпадают')
else writeln('длины строк не совпадают')
End.
Количество этажей в доме 5. Начал караться с 4 этажа. Закончил кататься на 2 этаже.
1.Газета источник,канал бабушка ,мама приёмник
2.Учебник источник , ученик канал , класс приёмник.
3.Переписка источник, брат канал , ты приёмник .
Катя источник и канал , они приёмник.