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.


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