Question

1)Напишите программу, которая вводит натуральное число N и нахо­
дит сумму всех натуральных чисел от 1 до N. Используйте сначала
цикл с условием, а потом — цикл с переменной.2)Напишите программу, которая вводит натуральное число N и выво­
дит первые N чётных натуральных чисел.3)Напишите программу, которая вводит натуральные числа а и Ь, и
выводит квадраты натуральных чисел в диапазоне от а до Ъ. Напри­
мер, если ввести 4 и 5, программа должна вывести:
4 * 4=16
5 * 5=25

Answer 1

(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.