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

Primary tabs

gani84's picture
Submitted by gani84 on Thu, 07/12/2018 - 10:27

Forums:

Задача №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.

Key Words for FKN + antitotal forum (CS VSU):

  • Log in to post comments
  • 4087 reads
vedro-compota's picture

vedro-compota

Sat, 07/21/2018 - 23:23

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

-- лишнее.

while (i

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

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

gani84's picture

gani84

Sun, 07/22/2018 - 11:49 

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

vedro-compota

Tue, 09/25/2018 - 20:27

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

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