Ввести имя, отчество и фамилию. преобразовать их к формату «фамилия-инициалы». ввести символьную строку и заменить все буквы «а» на буквы «б» и наоборот, как заглавные, так и строчные.

135

158

Посмотреть ответы 2

Ответы на вопрос:

Viktori1111112111

Информатика

4,4(27 оценок)

Если предполагается, что фио вводится на одной строке через пробел, то первая программа будет такой: var fio,s,f,i: string; p: integer; begin writeln('введите фио'); readln(fio); p: =pos(' ',fio); s: =copy(fio,1,p-1)+'-'+fio[p+1]; delete(fio,1,p); p: =pos(' ',fio); s: =s+fio[p+1]; writeln(s); end.программа для 2 : var s: string; i: integer; beginwriteln('введите строку'); readln(s); for i: =1 to length(s) docase s[i] of 'а': s[i]: ='б'; 'а': s[i]: ='б'; 'б': s[i]: ='а'; 'б': s[i]: ='а'; end; writeln(s); end.

Ghostremel

Информатика

4,7(85 оценок)

Пусть х - основание системы счисления составляем уравнение 1*x^2+2 = 2*(1*x+2)+1 x^2 - 2x + 2-4-1 = 0 x^2 - 2x - 3 = 0 корни 3 и -1 значит х = 3 (больше 0)