Задание:
Это паскаль! Плиз срочно нужно! 1) Найдите сумму натуральных нечетных чисел не превышающих n! 2) Вычислите произведение натуральныхчисел кратных трем и не превышающих n! 3) Выведите на экран в трех столбцах список чисел от 1 до N, их квадратов и кубов. Число N вводите с клавиатуры!
Решение:
//первая программа var n, i, s: integer; begin write ('n='); readln (n); S: =0; i: =1; while i <= n do begin s: =s+i; i: =i+2; end; writeln ('Summ=',S); end. //вторая программа var n, i, s: integer; begin write ('n='); readln (n); S: =0; i: =3; while i <= n do begin s: =s+i; i: =i+3; end; writeln ('Summ=',S); end. //третья программаvar n, i, s: integer; begin write ('n='); readln (n); for i: =1 to n do writeln (i: 10, i*i: 10, i*i*i: 10); end.
Знаете другой ответ?