1)составить программу для нахождения суммы первых n натуральных чисел.(n вводим с клавиатуры). 2) написать программу, которая выводит таблицу квадратов первых пяти целых положительных нечетных чисел в порядке убывания. большое ! )

151

420

Посмотреть ответы 2

Ответы на вопрос:

artyrik412002

Информатика

4,5(14 оценок)

Var s, n: integer; begin write('введите натуральное число: '); readln(n); s : = ((n + 1) * n) div 2; { сумма арифметической прогрессии } writeln('сумма натуральных чисел от 1 до ', n, ' равна ', s) end. результат выполнения программы: введите натуральное число: 10 сумма натуральных чисел от 1 до 10 равна 55 var i: integer; begin writeln('квадраты первых пяти нечетных натуральных чисел'); i : = 5 * 2 - 1; while i > 0 do begin writeln(i: 2, sqr(i): 5); i : = i - 2 end end. результат выполнения программы: квадраты первых пяти нечетных натуральных чисел 9 81 7 49 5 25 3 9 1 1

клубничка114

Информатика

4,4(26 оценок)

Вроде здесь уже решал такое : ) //pascal var n, a, b, c: integer; begin n : = 1; repeat repeat writeln(' ведите стороны a,b,c ', n, ' - треугольника'); readln(a, b, c); until ((a > 0) and (b > 0) and (c > 0)) and ((a + b) > = c); writeln('периметр равен ',a + b + c); n : = n + 1; until n > 25; end.