R4nd0m

Пользователь

Регистрация: 26.03.2013

Сообщения: 230

Рейтинг: 351

R4nd0m

Регистрация: 26.03.2013

Сообщения: 230

Рейтинг: 351

img
Спойлер:
лел

Chiptun3

Пользователь

Регистрация: 30.05.2013

Сообщения: 858

Рейтинг: 714

Chiptun3

Регистрация: 30.05.2013

Сообщения: 858

Рейтинг: 714

Criat

Пользователь

Регистрация: 15.06.2014

Сообщения: 98

Рейтинг: 12

Criat

Регистрация: 15.06.2014

Сообщения: 98

Рейтинг: 12

RUN IDIOTS

pasha070694

Пользователь

Регистрация: 23.02.2012

Сообщения: 60

Рейтинг: 53

pasha070694

Регистрация: 23.02.2012

Сообщения: 60

Рейтинг: 53

titan quest immortal throne

ultna6om

Пользователь

Регистрация: 22.02.2014

Сообщения: 9600

Рейтинг: 3105

ultna6om

Регистрация: 22.02.2014

Сообщения: 9600

Рейтинг: 3105

Dadure

Ucuponik

Пользователь

Регистрация: 29.08.2012

Сообщения: 263

Рейтинг: 73

Ucuponik

Регистрация: 29.08.2012

Сообщения: 263

Рейтинг: 73

Успешная Группа - Пацаны не плачут

Ackket

Пользователь

Регистрация: 04.03.2013

Сообщения: 490

Рейтинг: 153

Ackket

Регистрация: 04.03.2013

Сообщения: 490

Рейтинг: 153

XBAST

Пользователь

Регистрация: 19.08.2014

Сообщения: 220

Рейтинг: 97

XBAST

Регистрация: 19.08.2014

Сообщения: 220

Рейтинг: 97

var x:integer; f1,f2:text;
begin
assign (f1,'input.txt');reset(f1);
read(f1,x);
assign(f2,'output.txt');
rewrite (f2);
Case x of
0 : write (f2,'3');
1 : write (f2,'2.7');
2 : write (f2,'2.72');
3 : write (f2,'2.718');
4 : write (f2,'2.7183');
5 : write (f2,'2.71828');
6 : write (f2,'2.718282');
7 : write (f2,'2.7182818');
8 : write (f2,'2.71828183');
9 : write (f2,'2.718281828');
10 : write (f2,'2.7182818285');
11 : write (f2,'2.71828182846');
12 : write (f2,'2.718281828459');
13 : write (f2,'2.7182818284590');
14 : write (f2,'2.71828182845905');
15 : write (f2,'2.718281828459045');
16 : write (f2,'2.7182818284590452');
17 : write (f2,'2.71828182845904524');
18 : write (f2,'2.718281828459045235');
19 : write (f2,'2.7182818284590452354');
20 : write (f2,'2.71828182845904523536');
21 : write (f2,'2.718281828459045235360');
22 : write (f2,'2.7182818284590452353603');
23 : write (f2,'2.71828182845904523536029');
24 : write (f2,'2.718281828459045235360288');
25 : write (f2,'2.7182818284590452353602875');
end;
close(f1);
close(f2);
end.

zabeypacan

Пользователь

Регистрация: 17.08.2013

Сообщения: 442

Рейтинг: 181

Нарушения: 100

zabeypacan

Регистрация: 17.08.2013

Сообщения: 442

Рейтинг: 181

Нарушения: 100

НАДОЛГО ХВАТИТ

Jack_Skeleton

Пользователь

Регистрация: 05.09.2012

Сообщения: 95

Рейтинг: 19

Jack_Skeleton

Регистрация: 05.09.2012

Сообщения: 95

Рейтинг: 19

ВК УПАЛ ОБОЖИ, H3SET!

Crime

Пользователь

Регистрация: 28.09.2012

Сообщения: 8077

Рейтинг: 2303

Crime

Регистрация: 28.09.2012

Сообщения: 8077

Рейтинг: 2303

Lachundra

Пользователь

Регистрация: 29.04.2014

Сообщения: 65

Рейтинг: 8

Lachundra

Регистрация: 29.04.2014

Сообщения: 65

Рейтинг: 8

drag racer

Andreyempty

Пользователь

Регистрация: 27.07.2013

Сообщения: 186

Рейтинг: 41

Andreyempty

Регистрация: 27.07.2013

Сообщения: 186

Рейтинг: 41

Jin SoYeon

Пользователь

Регистрация: 17.01.2013

Сообщения: 4688

Рейтинг: 1161

Jin SoYeon

Регистрация: 17.01.2013

Сообщения: 4688

Рейтинг: 1161

Bayonet | Scorched (Field-Tested)

CheeZy27

Пользователь

Регистрация: 26.05.2014

Сообщения: 50

Рейтинг: 0

CheeZy27

Регистрация: 26.05.2014

Сообщения: 50

Рейтинг: 0

Scar Symmetry - The Singularity

Elcar

Пользователь

Регистрация: 18.06.2014

Сообщения: 2260

Рейтинг: 436

Elcar

Регистрация: 18.06.2014

Сообщения: 2260

Рейтинг: 436

Andreyempty

Пользователь

Регистрация: 27.07.2013

Сообщения: 186

Рейтинг: 41

Andreyempty

Регистрация: 27.07.2013

Сообщения: 186

Рейтинг: 41

Inscribed Coup de Grace Crits

FREEZCSGO

Пользователь

Регистрация: 17.12.2013

Сообщения: 565

Рейтинг: 306

Нарушения: 100

FREEZCSGO

Регистрация: 17.12.2013

Сообщения: 565

Рейтинг: 306

Нарушения: 100

Adilink

Пользователь

Регистрация: 01.01.2014

Сообщения: 4

Рейтинг: 2

Adilink

Регистрация: 01.01.2014

Сообщения: 4

Рейтинг: 2

program sp;
uses intMod;

var

ln1,ln2:line;
res:boolean;

begin
writeln('Line number one((x, y),(x, y)):');
readln(ln1[0].x, ln1[0].y, ln1[1].x, ln1[1].y);
writeln('Line number one((x, y),(x, y)):');
readln(ln2[0].x, ln2[0].y, ln2[1].x, ln2[1].y);
res := IntOrNot(ln1,ln2);
if res then
writeln('Intersection exists')
else
writeln('Intersection not exists');
readln;
end.

MarineKingPrime

Пользователь

Регистрация: 24.06.2014

Сообщения: 74

Рейтинг: 22

MarineKingPrime

Регистрация: 24.06.2014

Сообщения: 74

Рейтинг: 22

Not last. Am ready for my tenth second place of the year

Sivarius

Пользователь

Регистрация: 08.08.2013

Сообщения: 4484

Рейтинг: 2648

Sivarius

Регистрация: 08.08.2013

Сообщения: 4484

Рейтинг: 2648

Konservator

Почетный пользователь

Регистрация: 18.06.2014

Сообщения: 132

Рейтинг: 83

Konservator

Регистрация: 18.06.2014

Сообщения: 132

Рейтинг: 83

ChRGz

Пользователь

Регистрация: 15.09.2012

Сообщения: 108

Рейтинг: 8

ChRGz

Регистрация: 15.09.2012

Сообщения: 108

Рейтинг: 8

гей порно скачать бесплатно без смс

PowerBit3

Пользователь

Регистрация: 26.08.2013

Сообщения: 3337

Рейтинг: 3255

PowerBit3

Регистрация: 26.08.2013

Сообщения: 3337

Рейтинг: 3255

яой скачать бесплатно без смс

ChRGz

Пользователь

Регистрация: 15.09.2012

Сообщения: 108

Рейтинг: 8

ChRGz

Регистрация: 15.09.2012

Сообщения: 108

Рейтинг: 8

PowerBit3 сказал(а):
яой скачать бесплатно без смс
Нажмите, чтобы раскрыть...

нашел что?:c