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
#include <iostream>#include <time.h>#include <stdio.h>#include <stdlib.h>#define max 100using namespace std;/* run this program using the console pauser or add your own getch, system("pause") or input loop */ int main(int argc, char** argv) { srand(time(NULL)); int n , Chet = 0 ,notChet = 0 ,a[max]; cout<<"Size : "; cin>>n; for(int i = 0; i < n; i++) { a[i] = rand()%120+20; cout<<a[i]<<endl; if (a[i] %2 == 0) Chet++; else notChet++; } cout<<"Chet = "<<Chet<<", NotChet = "<<notChet; return 0;}
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