Вывести на экран 8 первых натуральных чисел, которые делятся на p и на q без остатка - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Вывести на экран 8 первых натуральных чисел, которые делятся на p и на q без остатка. Вычислить среднее значение этих чисел? я сделал саму задачу,а вот последнее условие не смог, как его сделать?:= Вычислить среднее значение этих чисел?
Листинг программы
  1. program five;
  2. var p,q,s,c:integer;
  3. begin
  4. write('VVEDITE p,q');
  5. readln(p,q);
  6. c:=0;
  7. s:=1;
  8. write('rezultat:');
  9. while c<8 do
  10. begin
  11. if (s mod p=0) and (s mod q=0) then
  12. begin
  13. c:=c+1;
  14. write(' ' , s);
  15. end;
  16. s:=s+1;
  17. end;
  18. end.

Решение задачи: «Вывести на экран 8 первых натуральных чисел, которые делятся на p и на q без остатка»

textual
Листинг программы
  1. var n, p, q, k, s: Integer;
  2. begin
  3.   Write('p q: '); ReadLn(p,q);
  4.   {k:=0; s:=0; n:=0;}
  5.   repeat
  6.     Inc(n);
  7.     if (n mod p=0) and (n mod q=0) then begin
  8.       Ink(k); s:=s+n; Write(' ',n);
  9.     end;
  10.   until k=8;
  11.   WriteLn; WriteLn('Среднее: ',s/8:0:2);
  12. end.

Объяснение кода листинга программы

  1. В начале кода объявляются переменные n, p, q, k и s типа Integer.
  2. Затем происходит чтение значений переменных p и q с помощью функции ReadLn.
  3. В цикле repeat происходит увеличение переменной n на единицу.
  4. Если n делится на p и q без остатка, то значение переменной s увеличивается на n, а значение переменной k инкрементируется.
  5. Если условие (n mod p=0) and (n mod q=0) выполняется, то число n выводится на экран с помощью функции Ink.
  6. Цикл повторяется до тех пор, пока значение переменной k не станет равным 8.
  7. После окончания цикла выводится средний результат, который рассчитывается как отношение суммы s к 8.
  8. Выводится символ новой строки с помощью функции WriteLn.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4.308 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы