Урок11 задача 1

Primary tabs

Submitted by nglag on Thu, 07/15/2021 - 14:09

Forums:

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

Ссылка на Урок11 задача 1
Решение

program U11Z1;

var a:integer;
begin
     while(a <= 15) do
     begin
           writeln('Vvedite cheloe chislo');
           readln(a);
               writeln(a + 7);
     end;

  writeln('chikl zavershon');
  readln();

end.
  • Log in to post comments
  • 2254 reads
vedro-compota's picture

vedro-compota

Thu, 07/15/2021 - 19:42

1) 

 while(a <= 15) do

-- неточное соответствие условию

2) 

 begin
           writeln('Vvedite cheloe chislo');
           readln(a);
               writeln(a + 7);
     end;

-- проблемы с форматированием блока

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

nglag

Fri, 07/16/2021 - 11:58 

program U11Z1;

var a:integer;
begin
     while(a < 15) do
     begin
         writeln('Vvedite cheloe chislo');
         readln(a);
             writeln(a + 7);
     end;

  writeln('chikl zavershon');
  readln();

en
vedro-compota's picture

vedro-compota

Sun, 07/18/2021 - 11:54

решение засчитано

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