Это паскаль! Плиз срочно нужно!

Question

Это паскаль! Плиз срочно нужно! 1) Найдите сумму натуральных нечетных чисел не превышающих n! 2) Вычислите произведение натуральныхчисел кратных трем и не превышающих n! 3) Выведите на экран в трех столбцах список чисел от 1 до N, их квадратов и кубов. Число N вводите с клавиатуры!

Answer 1

66

nbveh88

22 августа 2022

//первая программа 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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: