• Задача в Паскале. Выведите на печать любые K чисел арифметической прогрессии с заданной разностью прогрессии d и начальным значением a .

Ответы 2

  • program ap;var a,d,k,i:integer;beginwrite('Введите первый член арифметической прогрессии: ');readln(a);write('Введите разность арифметической прогрессии: ');readln(d);write('Введите величину K: ');readln(k);writeln('Ниже выведены ',k,' чисел заданной арифметической прогрессии');for i:=1 to k dobegin  write(a,' ');  a:=a+d;end;end.
    • Автор:

      gregory
    • 6 лет назад
    • 0
  • var a,d,c,i:integer; begin write('Введите первый член арифметической прогрессии: '); readln(a); write('Введите разность арифметической прогрессии: '); readln(d); write('Введите количество чисел ар.прогрессии: '); readln(c); writeln('Ответ'); for i:=1 to с do begin   write(a,' ');   a:=a+d*(i-1); end; end.
    • Автор:

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

Войти через Google

или

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

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

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