Помогите пожалуйста написать1) Даны натуральные числа а и b (а>b). Найти результат и...

Question

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


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 - остаток от деления.

Answer 1

Задание 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.