Несколько задачек на Паскале

[bwitcher]

1) Напечатать столбиком все целые числа от a до b (значения a и b вводятся с клавиатуры; a < b)

2) Составить программу для расчета факториала натурального числа n (факториал числа n=1*2*3*…*n)

Помогите, пжл. Особенно с первым)

[Utkin]

получим а с клавиатуры
получим b с клавиатуры
цикл i от а до b
выведем на экран i
конец цикла

Вот алгоритм для первой задачи . Мог бы и дальше, но тогда это задание в твоем мозгу не отложится.
Касательно второго - его в интернете как собак не стрелянных....

[bwitcher]

Сообщение от Utkin

получим а с клавиатуры
получим b с клавиатуры
цикл i от а до b
выведем на экран i
конец цикла

Вот алгоритм для первой задачи . Мог бы и дальше, но тогда это задание в твоем мозгу не отложится.
Касательно второго - его в интернете как собак не стрелянных....

Спасибо)) Касательно второго: ничего не нашел(( Есть похожие, но такого нет(

Напечатать столбиком третьи степени всех чисел от а до 50 (значение а вводится с клавиатуры; а < 50).

Не подскажете?

[Utkin]

По сути аналогично . Получаете данные с клавиатуры, затем в цикле возводите в третью степень - можно просто трижды умножить на самого себя.

[bwitcher]

Сообщение от Utkin

По сути аналогично . Получаете данные с клавиатуры, затем в цикле возводите в третью степень - можно просто трижды умножить на самого себя.

Спасибо за помощь!

[Риндера]

2.

f := 1; // тут часто пишут ноль, а потом думаю, ПАЧИМУ НИ РАБОТАИТ???!?!
for i := 1 to n do
   f := f*i;
writeln('n! = ', f);

3.

for i := 1 to a do
   writeln('i^3 = ', i*i*i);

На сколько я знаю, не каждый паскаль принимает значок "^".

[Utkin]

Перепутал с другой темой .

[bwitcher]

Риндера, огромное спасибо!

Риндера, то, что вы писали по поводу задания "Напечатать столбиком третьи степени всех чисел от а до 50 (значение а вводится с клавиатуры; а < 50)", что-то не работает((
Попробовал множество разных вариантов, но что-то не хочет. Выдает какие-то странные неправильные ответы. Не мог бы кто-нибудь помочь?)))

[Ol'ga_new]

Работать должно, только можно при выводе первую i вынести из ковычек, что бы нагляднее было! (и ещё маленькая ошибочка цикл от а до 50!!!)

[alex_fcsm]

writeln('Input a<50');
readln(a);
for i := a to 50 do
   writeln('i^3 = ', i*i*i);