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

Primary tabs

Submitted by MrDeadSummer on Sun, 07/25/2021 - 18:16

Forums:

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

var a:integer;
begin
a:= 1;
  while (a <= 15) do
        begin
        writeln(a + 7);
        a := a + 1;
        end;
readln();
end.
  • Log in to post comments
  • 1588 reads
vedro-compota's picture

vedro-compota

Thu, 07/29/2021 - 21:06

Пользователь вводит целые числа

нужен readln()

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

MrDeadSummer

Thu, 07/29/2021 - 21:38 

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