Решение задачи №1 из главы 11

Задача №1 из главы 11

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

var i:integer;
begin
  i:=1; // начинаем цикл
  while (i < 15) do //проверяем условие цикла
  begin
    writeln('Vvedite cislo');
    readln(i);//считываем его из потока ввода
    writeln(i+7); // выводим результат если
  end;
   writeln('Cikl zaverhen'); //завершаем цикл (i < 15)
   readln();
end.  
vedro-compota's picture

i:=1; // начинаем цикл

-- лишнее.

while (i

не в точности соответствует условию задачи. Что если пользователь введёт 15? надо ли завершать. Исправьте.

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

gani84's picture

var i:integer;
begin
   while (i <= 15) do //проверяем условие цикла
  begin
    writeln('Vvedite cislo');
    readln(i);//считываем его из потока ввода
    writeln(i+7); // выводим результат если
  end;
   writeln('Cikl zaverhen'); //завершаем цикл (i < 15)
   readln();
end. 
vedro-compota's picture

кривое форматирование, решение засчитано.

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