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

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

Поиск

Мини-чат
200

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

Статистика

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

Форма входа

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

0544 Мячик на лестнице

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

05.06.2012, 03:21
var f1,f2:text;
a: array [0..70] of int64;
i,n: byte;
begin
assign(f1, 'input.txt'); reset(f1);
assign(f2, 'output.txt'); rewrite(f2);
read(f1,n);
a[1]:=1;
a[2]:=2;
a[3]:=4;
for i:=4 to n do
a[i]:=a[i-3]+a[i-2]+a[i-1];
writeln(f2,a[n]);
close(f1);
close(f2);
end.
Категория: Pascal | Добавил: shum
Просмотров: 2629 | Загрузок: 0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Это интересно!


Copyright MyCorp © 2020