Uses crt;
var s,i,x : integer;
begin
Read(x);
For i:=1 to 5 do begin
s:=s + (x mod 10);
x:=x div 10;
end;
Write (s);
end.
Язык - ПаскальABC
Если хочешь можешь еще сделать проверку на пятизначное число.
Другой способ:
var a,i:longint;
begin
readln(a);
for i:=1 to 3 do
begin
write(a mod 10);
a:=a div 10;
end;
<span>end.</span>
1. Да, так как часто мошенники для достижения своих целей прибегают к помощи технических средств.
1 дискета=1,44 мегабайт
игра имеет объём 92160 мегабайт
92160/1,44= <em><u>64000 дискет ...</u></em>