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

14
Pascal/Linerall/Program4.pas Normal file
View File

@@ -0,0 +1,14 @@
Program pr1;
var r1, r2: integer;
s1, s2: real;
begin
writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 1');
readln(r1);
writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 2');
readln(r2);
s1:=Pi*r1*r1;
writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 1 = ', s1);
s2:=Pi*r2*r2;
writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 2 = ', s2);
writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> = ', s2 - s1);
end.