Помогите пожалуйста написать1)...

Тема в разделе "Информатика", создана пользователем Link-Plazma, 4 янв 2010.

  1. Link-Plazma

    Link-Plazma New Member

    Помогите пожалуйста написать1) Даны натуральные числа
    а и b (а>b). Найти результат и остаток
    целочисленного деления а на b, не используя стандартных операций DIV и MOD.


    2. Вводится натуральное
    число n. Найти n-ое число Фибоначчи.


    3. Вводится натуральное
    число n. Определить, является ли оно совершенным. Совершенным считается число,
    которое равно сумме своих делителей (конечно, за исключением себя
    самого).Например 6 - совершенное число, т.к. 6=1+2+3.


    4. Вводится радиус круга
    R. Подсчитать, сколько точек с целочисленными координатами попадают в круг
    радиуса R с центром в начале координат.


    5. Вводится натуральное
    n. Получить наименьшее число вида 2R, превосходящее n.

    6. Даны натуральные числа
    а и b, являющиеся соответственно числителем и знаменателем дроби. Сократить
    дробь, найдя наибольший общий делитель (НОД(а,b)) по алгоритму Евклида.
    Алгоритм Евклида основан на следующем соотношении: НОД(m,n)=НОД(m mod n,n),
    если m и n одновременно не равны нулю и m>n, а mod - остаток от деления.
     
  2. rainy

    rainy New Member

    Задание 1 (Это чо за тупая тварь придумала, что после деления натуральных чисел может быть остаток? передай всем что они там мудаки)
    program day;
    var c,a,b:real;
    Begin
    Readln(a,b);
    if a>b 
    then begin c:=a/b;
    writeln('результат ',c:0:0);
    end
    else writeln('a не должно быть больше b');
    end.
     

Поделиться этой страницей

Наша группа