1)написать диалоговую программу, в результате которой на экране появится диалог: - ! я компьютер, а как тебя зовут? - алёна - алёна, введи свои оценки по 3 предметам - 4,4,4 - имя, твой средний 4 2введя с клавиатуры 3-значное число (123), получить и вывести на экран новое число, поменяв местами разряды десятков и единиц.

//1) var   s: string;   o1,o2,o3: integer; begin   writeln('! я компьютер, а как тебя зовут? '); readln(s);   writeln(s,', введи свои оценки по 3 предметам'); readln(o1,o2,o3);   write(s,', твой средний ',(o1+o2+o3)/3); end. //2) var   s: string;   c: char; begin   readln(s);   c: =s[3];   s[3]: =s[2];   s[2]: =c;   writeln(s); end.

1. var s: string; m1,m2,m3: integer; begin writeln('- ! я компьютер, а как тебя зовут? '); write('- '); readln(s); writeln('- ',s,', введи свои оценки по 3 предметам'); write('- '); readln(m1,m2,m3); writeln('- ',s,', твой средний ', (m1+m2+m3)/3); end. пример: - ! я компьютер, а как тебя зовут? - алёна - алёна, введи свои оценки по 3 предметам - 4 4 4 - алёна, твой средний 4 2. var a,b: integer; begin write('a = '); readln(a); b: =(a div 100)*100 + (a mod 10)*10 + (a div 10 mod 10); writeln('b = ',b); end. пример: a = 123 b = 132