47 подписчиков
Напишите линейную программу, в результате выполнения которой в целочисленной переменной S получится перевернутое целое четырехзначное число k.
Var
a, b, c, d, s, k: integer;
begin
write('Введите k: ');
readln(k);
a := k div 1000;
b:= (k mod 1000) div 100;
c:= (k mod 100) div 10;
d := k mod 10;
s:=d*1000+ c*100+ b * 10 + a;
writeln('k=', k,' ','s=',s);
end.
Около минуты
2 февраля 2023