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

Primary tabs

Submitted by kuznmax on Mon, 04/04/2022 - 18:01

Forums:

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

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

var
  a:integer;
begin
  a:=1;
  while a<=15 do
    begin
      writeln('Введите число и я сложу его с семью ');
      readln(a);
      writeln('Результат = ', a+7);
    end;
  writeln('Конец');
  readln();
end.
  • Log in to post comments
  • 608 reads
vedro-compota's picture

vedro-compota

Mon, 04/04/2022 - 20:56

а как насчет того, чтобы в случае если число больше 15 вообще не выводить сумму?

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

kuznmax

Mon, 04/25/2022 - 17:23 

var a: integer;
begin
  a := 1;

  while (a <= 15) do
  begin
    writeln('Введите целое число:');
    readln(a);
    writeln(a + 7);
  end;

  writeln('Цикл завершен');
  readln();

end.
vedro-compota's picture

vedro-compota

Tue, 04/26/2022 - 20:02

см. внимательнее:

а как насчет того, чтобы в случае если число больше 15 вообще не выводить сумму?

-- это все еще не работает

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