Уважаемые программисты, нужна ваша помощь отблагодарю деньгами

[vlad-dj]

Здравствуйте Уважаемые программисты!

Требуется ваша помощь в решение этих задачек и реализации в паскале!

Кто что сможет и кому что нибудь не трудно решить, помогите!
Отблагодарю Деньгами!


1. Даны целые числа a и b (a>b).
Определить:
а) Результат Целочисленниго деления a на b не используястандартную операцию целочисленного действия;
б) Остаток от деления a на b не используя стандартную операциювычисления остатка.

2. Известныоценки по информатике ученика сидорова Васи.
В начале списка перечисленны все пятёрки, затем все остальныеоценки.
Сколько вася имеет по информатике оценок "5"(Условный оператор не использовать)

3. Напечатать минимальное число, больше 200, которое нацело делиться на 17.

4. Гражданин 1 марта открылсчёт в банке, вложив 1000 рублей. Через каждый месяц размер вклада
увеличивался на 2% от имеющейся суммы.
Определить:
а) За какой месяц величина ежемесячного увеличения клада превысит 30 рублей.
б)Черезсколько месяцев размер вклада превысит 1200 рублей

5. В некоторой стране используется денежные купюры достоинством в 1, 2, 4, 8, 16, 32 и 64 дано натуральное число N.
Как наименьшим количеством таких денежныхкупюр можно выплатить сумму N (указать количество каждой из используемыхдля выплат купюр)?
Предпологается, что имеется достаточно большое количество купюр всех достоинств.

6. Рещите уравнение в зависимости от введённого значения X.
( x(квадрат)+1, если x=<3
y= (
( -x, если x>3

7. Дано трёхзначное число. Найти число, полученное при перестановке первой и второй цифр.

8. Дано двухзначное число. Какая из его цифр меньше, первая или вторая?

Благодарю за внимание!

[KiDoki]

Решение к 8-ой задаче:

program p1;
var a,b,c:integer;
begin
readln(c);
a:= c div 10;
b:= c mod 10;
if a>b then writeln('a>b')
else
begin
writeln('a<b');
end;
readln;
end.

Прийду со школы решу ещё наверно.

[AlDelta]

Решить можно, но размер благодарности неплохо было бы указать...

[vlad-dj]

50 РУБЛЕЙ ЗА ЗАДАЧУ... бЕДНЫЕ НЕ ПОНИМАЮЩИЕ СТУДЕНТЫ....

[knight]

В течении 1 дня... Обращайтесь avi_udp@mail.ru

[KiDoki]

Одну задачу решил, свяжитесь по icq: 445три59семь

[Lokuson]

Если ещё не нашел, стучи 25-52-343, все сделаю, быстро, недорого

[samec]

Стучите в асю 21девять-2шесть7-7девять8, обсудим.

[Aristarh Dark]

Восьмую уже сделали, во вложении остальные (правда Delphi, нету у меня паскаля).
7 задача скорее шуточная

ЗЫЖ на все понадобилось меньше часа времени, я не могу понять что сложного в заданиях....

[Dark_Demon]

Aristarh Dark, я конечно понимаю что помагать это благородно, но для этого и отведен спец раздел, а в этот раздел постят люди которые знают что помощь им обойдется за определенную сумму, так зачем тогда выкладывать сюда решение ?