Цикл for от 1 до 29. При первом выполнении i = 1
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.
n = int(input())
print ('The next number for the number', n,'is',n+1)
print ('The previous number for the number', n,'is',n-1)