1) Напишите программу, которая вводит натуральное число N и нахо

дит сумму всех натуральных чисел от 1 до N. Используйте сначала

цикл с условием, а потом - цикл с переменной. 2) Напишите программу, которая вводит натуральное число N и выво

дит первые N чётных натуральных чисел. 3) Напишите программу, которая вводит натуральные числа а и Ь, и

выводит квадраты натуральных чисел в диапазоне от а до Ъ. Напри

мер, если ввести 4 и 5, программа должна вывести:

4 * 4=16

5 * 5=25

(Pascal)

1.

var

i, s, n: integer;

begin

readln (n) ;

s : = 0;

i : = 0;

while i < n do

begin

i : = i + 1;

s : = s + i;

end;

writeln ('Цикл с предусловием: ', s) ;

s : = 0;

i : = 1;

repeat

s : = s + i;

i : = i + 1;

until i > n;

writeln ('Цикл с постусловием: ', s) ;

s : = 0;

for i : = 1 to n do

s : = s + i;

writeln ('Цикл с переменной: ', s) ;

end.

2.

var

i, n: integer;

begin

readln (n) ;

for i : = 1 to n do

write (2 * i, ' ')

end.

3.

var

i, a, b: integer;

begin

readln (a, b) ;

for i : = a to b do

writeln (i, ' * ', i, ' = ', i * i)

end.