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.
Ответ:
А где сочинение? Прикрепи
Например когда закрываешь документ будет 3 выбора: Сохранить и закрыть. Закрыть. Отмена.
2. Специальный значок в левом верхнем углу.
3. Клавишами ctrl+s
4. Нажать на ФАЙЛ, и там есть кнопки Сохранить, Сохранить как.
1) Переводим в двоичную систему счисления, деля число целочисленно на 2 до тех пор, пока не получится 0.
Записываем остатки от деления в обратном порядке.
1100000110011 - ответ
2)Разбиваем двоичное число на тройки, начиная с младшего разряда: [001][100][000][110][011]
Каждую тройку переводим в восьмиричную систему счисления и записываем "как есть": [1][4][0][6][3].
14063 - ответ
3)Разбиваем двоичное число на четверки, начиная с младшего разряда: [0001][1000][0011][0011]
Переводим каждую четверку в шестнадцатиричную сисиему счисления и записываем "как есть": [1][8][3][3].
1833 - ответ.
Var a:real;BeginWrite('Сторона равностороннего треугольника: ');ReadLn(a);WriteLn('P = ',a*3);WriteLn('S = ',a*a);End.