СРОЧНО, ПОМОГИТЕ! Напишите программы в pascal, пожалуйста. Вот задачки: 1. Написать…

Question

66

СРОЧНО, ПОМОГИТЕ! Напишите программы в pascal, пожалуйста. Вот задачки: 1. Написать программу, которая выводит таблицу кубов первых трех положительныхчетных чисел. 2. Написать программу, которая вычисляет сумму первых N целых положительных нечетных чисел. 3. Написать программу, которая вычисляет сумму первых N членов ряда 1,3,5,7,… Количество суммируемых членов ряда задается во время работы.

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

konst6 · Accepted Answer

72

konst6

14 марта 2023

1) var n,i,kv: integer; beginkv: =1; readln (n); for i: =1 to n do begin if (i>0) and (i mod 2=0) and (i<>0) then kv: =i*i*i; writeln (kv); end; end. 2) var n,i,sum: integer; begin readln (n); for i: =1 to n do begin if (i>0) and (i mod 2<>0) then sum: =sum+i; end; writeln (sum); end.

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

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

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

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