• Решите пожалуйста задачу по информатике.
    Натуральные числа a,b,n заданы пользователем. Вывести на экран числа отрезка a,b с шагом n.
    Пример: 2,20,3
    2,5,8,11,14,17,20

Ответы 9

  • А слово true заменить можно?
  • Можно. Удали строчку if(a >= b) then break; а вместо true поставь a < b
  • Результат вроде такой же будет
    • Автор:

      araceli5
    • 6 лет назад
    • 0
  • while a<=b do - почему <= ?
    • Автор:

      elvisfq1e
    • 6 лет назад
    • 0
  • без б) дошло... ты сначала выводишь потом добавляшь :З
    • Автор:

      dulce4yrx
    • 6 лет назад
    • 0
  • я бы вам посоветовал писать не write(''+ a);,а write('',a);. А в вашем случае write(a); т.к. вы записью '' не добавляете пробела.
    • Автор:

      alisa51
    • 6 лет назад
    • 0
  • ну такое.. я ж не программист )
  • var a,b,n:integer;

    Begin

     write('Введите начало интервала (a): '); readln(a);

     write('Введите конец интервала (b): '); readln(b);

     write('Введите шаг (n): '); readln(n);

     a := a - n;

     while (true) do Begin

       a := a + n;

       write(''+a);

       if(a >= b) then break;

       write(',');

     End;

    End.

    answer img
    • Автор:

      tyree
    • 6 лет назад
    • 0
  • var a,b,n,i:integer;

    begin

    write('Введите a,b,n: ');

    readln(a,b,n);

    repeat

    write(a,'  ');

    a:=a+n

    until a>b

    end.

    или

    var a,b,n,i:integer;

    begin

    write('Введите a,b,n: ');

    readln(a,b,n);

    while a<=b do

    begin

    write(a,'  ');

    a:=a+n

    end

    end.

    answer img
    • Автор:

      edwin388
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years