1 - в) caa 2 - в) в столбик 3 - в) char 4 - в) пояснительный текст не нужен 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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку