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

16
Pascal/wiles/Program5.pas Normal file
View File

@@ -0,0 +1,16 @@
var even,odd,a:integer;
begin
write('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>: ');
readln(a);
while a>0 do begin
if a mod 2=0 then begin
even:=even+1;
end
else begin
odd:=odd+1;
end;
a:=a div 10;
end;
writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - ', even);
write('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - ', odd);
end.