Дано трехзначное число. найти число, полученное при перестановке первой и последней цифр заданного числа. pascal

266

327

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

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

слар

Информатика

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

Var a,b: integer; begin write('a = '); readln(a); b: =(a mod 10*100)+(a div 10 mod 10*10)+(a div 100); writeln('b = ',b); end. пример: a = 538 b = 835

smaliar2004

Информатика

4,8(11 оценок)

Var a,min,max,i1,i2,i; m: array[1..10000] of longint; begin min: =1000000; readln(a); for i: =1 to a do begin read(m[i]); if m[i]> max then begin max: =m[i]; i2: =i; end; if m[i]< min then begin min: =m[i]; i1: =i; end; end; a: =m[i1]; m[i1]: =m[i2]; m[i2]: =a; end.