FreePascal.ru

ясно спасибо

Первичные данные целых чисел массив, элементы в массиве упорядочены возрастающем порядке. Функция Daug читает элементы и определяет число который больше всех в этом массиве находится. Если есть числа которые одинаковое число раз повторяются то в ответе любое должно быть.
Задание простое и логичное ...

лутше начни с delfi сразу или с java, c++. Серавно посли турбо паскаль 7.1 придется переходить на эти программы.

поподробнее обесни что иммено надо и какое слово при какой букве
вот напиши так writeln(chr(a)); вместо а пишешь цифру выведет знак c таблицы ascii или пишиш слово
case a of
1:writeln('privet');
2:writeln('poka');
end;

задачу решите пожалста .
сделаите програмку
если выстрелить N раз. если попадет премия 2 дополнительных патрона. в фаиле tiras.txt в первай строчке написана число N. В других N строчках вписан ноль (0) если непопал, а если попал (1). если выстрел был удачный в этойже строчке о дополнителных ...

так и будит

так паможете или низнаете

ой я ище забил что мне нада функцию ln(c:longint):longint; и все в ней зделат

массивы не проходили так как сделать я чегото не врубаюсь

да нилзя tlist я низнаю что это такое и в школе нилзя упатреблят что ище нипрохадили

нада из числа выбрать все повторение например число 16771 и написать на экране 6 повторы 77 и 11 ненужны
9966 написать на экране 0
ришить без массивов
мне помогите и объясните но решение недовать пака я не придумают или срок некончится в воскрисение паследний день мне надо будет здовать
вот что ...

все ришил
program fibonacio;
var a,i,r:integer;
function fib (n:integer):integer;
begin
if (n=1) or (n=2)
then fib:=1
else fib:=fib(n-2)+fib(n-1);
end;
begin
write('n=');
readln(a);
for i:=1 to a do
begin ...

а это у меня что нерикурсия

надо чтобы цифра в n степени писала
1
1
2
3
5
8
13
...
и так далее о комп чтобы выводил место цифр звездочки
*
*
**
***
*****
********
*************
...
падскажите что надо будет дописат
а не сразу напишите
function fib (n: integer): integer;
begin
if (n = 1) or (n = 2) then ...

Attid писал(а):а имхо развод, я сам безграмотно пишу и буквы путаю. но не так жестоко вроде =)

так у меня выходит извините меня уже неисправить