найти произведение натуральных чисел от 8 до 15
5-9 класс
|
var a:array [1..100] of integer;
i,p:integer;
begin
p:=1;
for i:=8 to 15 do begin
a[i]:=i;
p:=p*a[i];
end;
writeln(p);
end.
var
i : Byte;
result : LongInt;
begin
result := 1;
for i := 8 to 15 do
result := result * i;
Write(result);
end.
Другие вопросы из категории
Читайте также
натуральные числа A , B, где B>A. Напишите программу последовательность натуральных чисел от A до B, включающая A и B.
Пожалуйста помогите !!!!!!!!
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
2)Даны натуральные числа от 1 до 150. Найти сумму тех из них, которые делятся на 5 или на 7.
3)Напечатать те из чисел от 10 до 50, которые делятся на 4, но не делятся на 6
4)Найти произведение нечетных чисел от 10 до 50, кратных 13
кто может сделать в Паскале или просто решить?
2)Написать программу которая бы выводила на экран произведение нечетных чисел от 10 до 20.