Это паскаль! Плиз срочно нужно! 1)Найдите сумму натуральных нечетных чисел не превышающих n!!!! 2)Вычислите произведение натуральных чисел кратных трем и не превышающих n!!! ...
Это паскаль! Плиз срочно нужно! 1)Найдите сумму натуральных нечетных чисел не превышающих n!!!! 2)Вычислите произведение натуральных чисел кратных трем и не превышающих n!!! 3)Выведите на экран в трех столбцах список чисел от 1 до N, их квадратов и кубов.Число N вводите с клавиатуры!
Гость
Ответ(ы) на вопрос:
Гость1)
var sum, number, n: integer;
begin
sum := 0;
number := 1;
write('Введите n: ');
readln(n);
while (number <= n) do
begin
sum := sum + number;
number := number + 2;
end;
write('Сумма равна ', sum);
end.
2)
var prod, number, n: integer;
begin
prod:= 1;
number := 3;
write('Введите n: ');
readln(n);
while (number <= n) do
begin
prod := prod * number;
number := number + 3;
end;
write('Произведение равно ', prod);
end.
3)
var number, n: integer;
begin
number := 1;
write('Введите n: ');
readln(n);
writeln('Таблица:');
while (number <= n) do
begin
writeln(number:5, number*number:5, number*number*number:5);
number := number + 1;
end;
end.
Не нашли ответ?
Похожие вопросы