Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

НАПИШИТЕ ЛИНЕЙНУЮ ПРОГРАММУ , в результате выполнения которой в целочисленной переменной S получится перевернутое целое четырехзначное число k

Ответ оставил Гость

Var s,k,a:integer;
begin
writeln(введите четырёхзначное число);
readln(s);
k:=0;
a:=s mod 10;
s:=s div 10;
k:=(a+k)*10;
a:=s mod 10;
s:=s div 10;
k:=(a+k)*10;
a:=s mod 10;
s:=s div 10;
k:=(a+k)*10;
a:=s mod 10;
s:=s div 10;
k:=(a+k)*10;
writeln(перевёрнутое число ==> ,k/10);
end.