vlad/code_olymp
1
0
Fork 0
Code Pull Requests Releases Activity

Дамп всех задач

Browse Source
This commit is contained in:
Vlad Utkin
2017-05-22 13:29:43 +03:00
parent b970626fef
commit 93746b05d7
173 changed files with 2505 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
Pascal/Linerall/Program9.pas Normal file
View File

@@ -0,0 +1,22 @@
program gr;
var N, sum:integer;
begin
writeln('<27><><EFBFBD><EFBFBD><EFBFBD>');
Readln(N);
sum:=sum+N div 10000;
write(N div 10000,' ');
N:=N mod 10000;
sum:=sum+N div 1000;
write(N div 1000,' ');
N:=N mod 1000;
sum:=sum+N div 100;
write(N div 100,' ');
N:=N mod 100;
sum:=sum+N div 10;
write(N div 10,' ');
N:=N mod 10;
sum:=sum+N div 1;
write(N div 1,' ');
N:=N mod 1;
write(sum);
end.