составить программу раскаль в которой посчитать произведение чисел от 1 до 9 до тех пор пока произведение будет меньше 120
10-11 класс
|
Program summa;
var i,n,s, :real;
begin (' введите число n');
read (n);
S:=0;
for i := 1 to n do
S:=S+i;
writeln ('сумма =', s);
end
я не уверена конечно, но попробуй в паскале, если получится значит все правильно.
Другие вопросы из категории
составить таким образом, чтобы вычислялось многократное значение функции при
изменении аргумента в указанном диапазоне и с заданным шагом. Организовать вывод
значения аргумента и вычисленного значения функции в виде таблицы
оба числа входят в интервал [0;5], то вывести сообщение "Ок!", иначе
вывести сообщение "ошибка!"
Читайте также
статей опубликовал каждый внештатный корреспондент. Составьте программу, с помощью которой определить, сколько денег нужно выплатить каждому внештатному корреспонденту, если за каждую опубликованную статью полагается по 50 у.е. Вознаграждения.
1) напишите программу вычисления факториала числа n (произведение чисел от 1 до n)
2) Напишите программу суммы четных чисел от 1 до 5
3) Напишите программу угадывания чисел, в которой компьютер делает подсказки: меньше или больше.
1) напишите программу вычисления факториала числа n (произведение чисел от 1 до n)
2) Напишите программу суммы четных чисел от 1 до 5
3) Напишите программу угадывания чисел, в которой компьютер делает подсказки: меньше или больше.