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

Primary tabs

gani84's picture
Submitted by gani84 on Sun, 11/22/2020 - 16:17

Forums:

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

У вас есть число z=5. Пользователь вводит числа в цикле, если очередное введенное число больше 15, то увеличивайте число z на 1, а если меньше 15, то уменьшайте на 1. Цикл и программа должны завершиться, когда число z станет отрицательным.

Вывод консоли
Vvedite chislo
15
15
Vvedite chislo
16
17
Vvedite chislo
14
13
Vvedite chislo

var z:integer;
  begin
    z:=5;
    while z < 100 do
    begin
      writeln('Vvedite chislo');
      readln(z);
    if z < 0 then
       break;
    if z > 15 then
        z:=z+1;

      if z < 15 then
        z:=z-1;
      writeln(z);
    end;
     readln();
  end.

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

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

vedro-compota

Sun, 11/22/2020 - 16:51

должно быть:

Vvedite chislo
15
6
Vvedite chislo
16
7
Vvedite chislo
14
6
Vvedite chislo

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

gani84's picture

gani84

Sun, 11/29/2020 - 15:25 

Вывод консоли
Vvedite chislo
15
6
Vvedite chislo
16
7
Vvedite chislo
14
6
Vvedite chislo

var z,a:integer;
  begin
    z:=5;
    while z < 100 do
    begin
      writeln('Vvedite chislo');
      readln(a);
    if z < 0 then
       break;

    if a >= 15 then
        z:=z+1;

    if a < 15 then
        z:=z-1;
      writeln(z);
    end;
   readln();
 end.
vedro-compota's picture

vedro-compota

Sun, 11/29/2020 - 16:31

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

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