Здесь можно использовать размещение:
= 5! / (5-2)! = 5*4 = 20
Ответ: 20 способами
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.
В первой сточке "program primer; "
во второй " var a,b,s,d,m ...."
и в последней после end должна стоять точка
Помогла , чем смогла :)
И так же после begin не нужны никакие знаки