Задали по информатике: Найти сумму и произведение чисел от 1,2... до N.Заранее спасибо!

Саня как всегда прав, только подмечу RAD XE в нынешней форме мощьный инструмент...

Автор вот тебе логика писать на устаревшем синтаксисе не охото и под рукой проверялки нету, да еще и мороки с модулями которыми в вин подцепить надо да ну на...., ты хоть скажи где исполняться твоя фигня будет в учебном паскале под винду или досе или турбопаскале?

Code (Pascal):

var
n,i: integer; (здесь 2 переменные для цикла for и для числа что введет польз)
summ,fact: double; (тут 2 переменные под факториал и сумму конечный результат)
begin
 writeln('введите число для подсчета факториала n!:='); //ну тут вывод строки в консоль
 readln(strtoint(n)); //тут читаем введенное значение пользователя нужно было бы проверить не ввел ли он нечто другое помимо цифр ну да ладно
 i,summ:= 0; // ну чтоб наверняка у нас по нулям были переменные малоли залупим подсчет
 fact:=1; // тут для переменной факториала ставим 1 вместо 0 т.к. при умнажении на нуль будет НОЛЬ  :)

 // ну собственно сама структура подсчета не пинать за арифметику давно уже на калькуляторе считаю.
 for i=1 to n /// т.е. переменная i будет равняться от 1,2,3, n раз которые ввел пользователь
   begin
     //тут мы и делаем то что учитель прописал складываем n n-раз и перемножаем
     summ := summ+n;
     fact:=fact*n
   end

//выводим подсчитанный результат пользователю
 writeln('факториал введенного числа n='+fact);
 writeln('сумма последовательности чисел из n='+summ);
 пауза в консоле не помню... ну тот же readln();
end 

Подкоректируй код переведи на чистый ПАСКАЛЬ  загони в проект коменты в {такой вот вид} ибо там они так пишутся... дальше лень 

Gradar
да уж каметы писались походу дольше проги,
за  summ := summ+n; в цикле я бы сразу ставил ДВА ну за каменты фиг сним 3-

я бы так вписал: Code:

program zaebiz;
var
 n: integer;
function fact(n : integer) : longint;
begin
  if n <= 1 then
    fact := 1
  else
    fact := n * fact(n - 1);
end;
begin
 write('n?:');
 readln(n);
 writeln('summ: ', n*(n+1)/2);
 writeln('fact: ', fact(n));
end. 

должно работать, ну на небольших значениях n точно, на больших с факториалом могут быть траблы, если оценку получишь отпиши

Цитата:

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

Mr.Freeman 2011 писал(а) 07.10.2011 :: 14:43:58:

За это можно и по тыкве получить

В интернете все такие смелые что капец
Смотри забанят, как уроки делать то будешь