ПРОГРАММЫ!

....NIKE..... 1

Помогите написать задачи в паскале, в цикле "СЧЕТЧИК"
Кто напишет программы получит по 100монет за каждую написанную программу
Первая задача:Даны 2 числа a,b; a<b, вывести в порядке возрастания целые числа, расположенные между a и b, не включая a и b, а так же вывести количество n этих чисел
Вторая задача:Дано вещественное число, цена 1кг. конфет. Вывести на экран стоимость 1,2,...10кг. конфет
Третья задача:** Дано целое число N>0, найти сумму числового ряда 1+ 1/2+1/3+....1/N**

can4ikk23

в 7-8 классе это проходил :d:uma:

....NIKE..... 1

can4ikk23, бери выше, 9тый)

Sanya Kutin

делал такую фигню но уже непомню)

can4ikk23

ТруЛяЛя, это типо:
program lol
var
begin
readln
writeln
да?

Копатель

Я тоже недавно такую задачу решал,вроде нужно использовать case?

id5911

1

Var
A,B,i:Integer;
Begin
Write('A= ');
Readln(A);
Write('B= ');
Readln(B);
For i:=B-1 downto A+1 do write(i:8);
Writeln;
Writeln;
Writeln('N = ',B-A-1);
Readln;
End.

2

Uses
Crt;
Var
a, t, n: Real;
BEGIN
ClrScr;
Writeln('Введите цену за кг ');
Read(a);
t:=0;
while t<>1 do
Begin
t:=t+0,1;
n:=a*t;
Writeln('Цена при ',t,'кг равна',n);
end;
ReadKey;
END.

....NIKE..... 1

can4ikk23, да

anviik

впринципе не сложно же , можно сделать , только подумать надо)

Poltergeist

**ТруЛяЛя** 
Помогите написать задачи в паскале, в цикле "СЧЕТЧИК"
Кто напишет программы получит по 100монет за каждую написанную программу
**%(red)[Первая задача]**:%(blue)[**Даны 2 числа a,b; a<b, вывести в порядке возрастания целые числа, расположенные между a и b, не включая a и b, а так же вывести количество n этих чисел**]
**%(blue)[Вторая задача]**:%(red)[**Дано вещественное число, цена 1кг. конфет. Вывести на экран стоимость 1,2,...10кг. конфет**]
%(green)[**Третья задача**]:%(green)[** Дано целое число N>0, найти сумму числового ряда 1+ 1/2+1/3+....1/N**]

Хах, за монет, я даже не буду запускать pascal

ВоРюГа

Пфф....пижнецкая жизнь

id27708

Давай я лутше фейк создам??

....NIKE..... 1

XoTtaBbl4, спасибо, щас передам монеты

Artyomjkeee

Чё то я не понял что это за фигня?:(:

MaXi

2

Для просмотра скрытого текста нужно иметь 100 Сообщений на форуме