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

Primary tabs

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

Forums:

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

Ссылка Урок 11 задача 2

Решение:

program U11z2;
 var a,b: integer;
begin
    a:=1; // первое число счетчика
    while(a < 15) do
    begin
        b:=a; //делаем из первого предыдущее;
            writeln('Vvedite cheloe chislo:');
            readln(a); //первое число меняется на вводимое пользователем
                if(a < 15) then  //прерывавем с условным оператором (if)
                                     //прерывает только ближайшее действие
                    writeln(b + a); //сумма предыдущего и последнего введенного пользователем
     end;
     writeln('Poka!');
    readln();
end.
  • Log in to post comments
  • 3839 reads

nglag

Fri, 07/16/2021 - 12:01

Вариант решения Задачи 2 Урока 11 с использованием break

program U11z2;
 var a,b: integer;
begin
    a:=1; // первое число счетчика
    while(a < 15) do
    begin
        b:=a; //делаем из первого предыдущее;
            writeln('Vvedite cheloe chislo:');
            readln(a); //первое число меняется на вводимое пользователем
                if (a >= 15) then   break; //вариант с использованием break:
                                                    //прерывает все действия ниже break
                    writeln(b + a); //сумма предыдущего и последнего введенного пользователем
     end;
     writeln('Poka!');
    readln();
end.
vedro-compota's picture

vedro-compota

Thu, 07/15/2021 - 19:46

исправить форматирование

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

nglag

Fri, 07/16/2021 - 12:09 

program U11z2;

var
  a, b: integer;
begin
    a := 1; // первое число счетчика
    while (a < 15) do
    begin
        b := a;
        writeln('Vvedite cheloe chislo:');
        readln(a);
        if (a < 15) then
            writeln(b + a);
    end;
    writeln('Poka!');
    readln();
end.

nglag

Fri, 07/16/2021 - 12:15 

program U11z2;

var
  a, b: integer;
begin
  a := 1;
  while (a < 15) do
  begin
    b := a;
    writeln('Vvedite cheloe chislo:');
    readln(a);
    if (a >= 15) then
      break;
    writeln(b + a);
  end;
  writeln('Poka!');
  readln();
end.
vedro-compota's picture

vedro-compota

Sun, 07/18/2021 - 11:52

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

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