Дано число. поменять первую и последнюю цифру местами, если они не равны друг другу. паскаль)

Program qq; var a, x, y, count, i: integer; begin   writeln('введите число');   readln(a);   x: =a mod 10;   y: =a;   count: =0;   while(y> 9) do   begin       y: =y div 10;       count: =count+1;   end;   if x< > y then   begin       a: =a-x+y;       for i: =1 to count do       begin           x: =x*10;           y: =y*10;       end;       a: =a-y+x;       writeln('получено число: ');       writeln(a);   end   else       writeln('первая и последняя цифра одинаковые.'); end. как вариант) может, не совсем эффективно, но работает.

Решение в натуральных числах *** текст программы на pascalabc.net *** begin   var (x,y,z): =readinteger3('введите x,y,z: ');   var (a1,a2,a3): =readinteger3('введите максимальные значения t1,t2,t3: ');   var k: =0;   for var t1: =1 to a1 do       for var t2: =1 to a2 do           for var t3: =1 to a3 do               if x*t1-y*t2-z*t3=0 then k+=1;   if k=0 then writeln('решений нет')   else   begin       writeln('найдено решений: ',k);       if readinteger('выводить решения? (1-да): ')=1 then       for var t1: =1 to a1 do           for var t2: =1 to a2 do               for var t3: =1 to a3 do                   if x*t1-y*t2-z*t3=0 then                       writeln($'{x}x{t1}-{y}x{t2}-{z}x{t3}=0')   end;   writeln('работа программы завершена') end. *** пример работы с программой *** введите x,y,z: 3 5 7 введите максимальные значения t1,t2,t3: 10 10 10 найдено решений: 3 выводить решения? (1-да): 1 3x4-5x1-7x1=0 3x8-5x2-7x2=0 3x9-5x4-7x1=0 работа программы завершена

Как называется программа?

ответ: cup_of_tea

Запишите какой тип переменных используется в программе.

ответ: real

Запишите названия используемых переменных.

ответ: a, b, c, y , x

В какой строке программа получает данные от пользователя? Напишите номер строки

ответ: 5) readln(a,b,c);

Что будет выведено на экран, если пользователь введет значения: 6, 9, 3

ответ: 1.8

Объяснение:

Вы ввели неверный код, это может быть:

program cup_of_tea;

var a, b, c, y , x: real;

begin

, введите три числа');

   readln(a,b,c);

   y:=a;

   if b>y then y:=b;

   if c>y then y:=c;

   if (a>b) or (a>c) then x:=a;

   if (b>a) or (b>c) then x:=b;

   if (c>a) or (c>b) then x:=c;

   writeln (y+x);

end.