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

63
olymp2016/1/Project1.lpi Normal file
View File

@@ -0,0 +1,63 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="Project1"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
</local>
</RunParams>
<Units Count="1">
<Unit0>
<Filename Value="Project1.pas"/>
<IsPartOfProject Value="True"/>
</Unit0>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<Target>
<Filename Value="Project1"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>

37
olymp2016/1/Project1.pas Normal file
View File

@@ -0,0 +1,37 @@
program Project1;
var
f, f1: text;
N, sum, sum1: integer;
begin
assign (f, 'zadanie1.txt');
reset (f);
read (f, N);
close (f);
writeln(N);
sum:=sum+N div 100000;
N:=N mod 100000;
sum:=sum+N div 10000;
N:=N mod 10000;
sum:=sum+N div 1000;
N:=N mod 1000;
sum1:=sum1+N div 100;
N:=N mod 100;
sum1:=sum1+N div 10;
N:=N mod 10;
sum1:=sum1+N div 1;
N:=N mod 1;
assign (f, 'rezultat1.txt');
rewrite (f);
if sum = sum1 then begin
write (f, 'schastlyviy');
writeln ('schastlyviy');
end
else begin
write (f, 'neschastliviy');
writeln ('neschastliviy');
end;
end.
close (f);
end.

0
olymp2016/1/rezultat1.txt Normal file
View File

1
olymp2016/1/zadanie1.txt Normal file
View File

@@ -0,0 +1 @@
189347