Урок 11. Цикл While. Задание №2

Урок 11. Задание №2.

Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и предыдущего введённого им числа, если же введённое число больше 15, то цикл необходимо завершить.
Первое введенное пользователем число можно сложить с единицей.

Program LessonPascal;
var a, i : integer;
begin
 i := 0;
 a := 0;
 while (i <= 15) do
 begin
   writeln ('Enter integer: ');
   readln(i);

   if (a = 0) then
   begin
     i := i + 1;
     writeln ('You number + previous number = ', i);
     a := i;
   end else
   begin
     writeln ('You number + previous number = ', i + a);
     a := i;
   end;
 end;
 writeln ('Cycle completed!');

 readln(); // Удержание консоль
end.// Завершение программы    
vedro-compota's picture

i := i + 1;

не то

_____________
матфак вгу и остальная классика =)

Firons's picture

Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и предыдущего введённого им числа, если же введённое число больше 15, то цикл необходимо завершить.
Первое введенное пользователем число можно сложить с единицей.

Program LessonPascal;
var a, i : integer;
begin
 i := 1;
 while (i < 15) do
 begin
   a := i;
   writeln ('Enter integer: ');
   readln(i);
   if (i > 15) then
      break;
   writeln ('You number + previous number = ', i + a);

 end;
 writeln ('Cycle completed!');

 readln(); // Удержание консоль
end.// Завершение программы 
Firons's picture

Этот комментарий