Question

Pascal. Составить программу которая позволяет вывести трех значное число, если первая цифра числа четное,то поменять местами последнию и среднию,иначе поменять первую и среднию. За эту задачу дам 15 баллов.

Answer 1

Var S,a,q:integer;
b,c:real;
begin
readln(S); // вводим трёхзначное число
a:= (S div 100) mod 2; // получаем 1 цифру
if a = 0  then begin // проверяем 
b:= S div 10;   
b:= b - S div 100 * 10 ; // "вытаскиваем" среднюю цифру 
c:= S mod 10; // берём последнюю  writeln(S div 100,c,b); 
end
else begin 
b:= S div 10;   
b:= b - S div 100 * 10 ; // повторяем со средней цифрой 
c:= S mod 10; // берём последнюю (также повторяем) 
writeln(b,S div 100,c); 
end;
end.


Наверно можно было и попроще)))))

Answer 2

Я могу помочь вам с написанием программы на Pascal, которая решает вашу задачу. Вот пример кода, который я сгенерировал:

program SwapDigits;
var
  n, a, b, c, m: integer;
begin
  writeln('Введите трехзначное число:');
  readln(n);
  a := n div 100; // первая цифра
  b := (n mod 100) div 10; // вторая цифра
  c := n mod 10; // третья цифра
  if a mod 2 = 0 then // если первая цифра четная
    m := a * 100 + c * 10 + b // меняем местами последнюю и среднюю
  else // иначе
    m := b * 100 + a * 10 + c; // меняем местами первую и среднюю
  writeln('Полученное число:', m);
end.

Я надеюсь, что это вам поможет. Если у вас есть другие вопросы или пожелания, я буду рад с вами поговорить. Спасибо за использование Bing.