Решения задач acmp.ru
Главная
Вход
Регистрация
Воскресенье, 27.09.2020, 13:47Приветствую Вас Гость | RSS
Меню сайта

Категории раздела
Pascal [121]
C++ [76]

Поиск

Мини-чат
200

Легкий заработок!

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа

Главная » Файлы » Pascal

0046 Число E

Скачать файл можно после просмотра рекламы:

04.06.2012, 17:19
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. 
Категория: Pascal | Добавил: shum
Просмотров: 3654 | Загрузок: 0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Это интересно!


Copyright MyCorp © 2020