составить программу вычисления произведения квадратов натуральных чисел от 1 до 10. (1^2*2^2*3^2*...*10^2)
5-9 класс
|
Pascal
Var
i: byte;
rez: unt64;
begin
for i:=1 to 10 do
rez:=rez*i*i;
write(rez);
end.
Если не ошибся нигде)
Var i,a:longint;
Begin
a:=1;
for i:=1 to 10 do
a:=a*sqr(i);
writeln (a);
end.
Другие вопросы из категории
Unicodc. Какой объем памяти (в Кбайтах) займет доклад, если в каждой строке по 32 символа, а на каждой странице помещается 64 строки? Каждый символ в кодировке Unicode занимает 16 бит памяти. 1) 16 2) 32 3) 64 4) 256
Читайте также
натуральные числа A , B, где B>A. Напишите программу последовательность натуральных чисел от A до B, включающая A и B.
Пожалуйста помогите !!!!!!!!
Входные данные: ввести два целых числа А,В (1 <=А,В<=10).
Входные данные: вывести произведение всех целых чисел от А до В включительно.
2)Составить программу которая вычисляет произведение натуральных чисел от 5 до 10.
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
2)Написать программу которая бы выводила на экран произведение нечетных чисел от 10 до 20.