Вывести на экран 8 первых натуральных чисел, которые делятся на p и на q без остатка - Turbo Pascal
Формулировка задачи:
Вывести на экран 8 первых натуральных чисел, которые делятся на p и на q без остатка. Вычислить среднее значение этих чисел?
я сделал саму задачу,а вот последнее условие не смог, как его сделать?:= Вычислить среднее значение этих чисел?
Листинг программы
- program five;
- var p,q,s,c:integer;
- begin
- write('VVEDITE p,q');
- readln(p,q);
- c:=0;
- s:=1;
- write('rezultat:');
- while c<8 do
- begin
- if (s mod p=0) and (s mod q=0) then
- begin
- c:=c+1;
- write(' ' , s);
- end;
- s:=s+1;
- end;
- end.
Решение задачи: «Вывести на экран 8 первых натуральных чисел, которые делятся на p и на q без остатка»
textual
Листинг программы
- var n, p, q, k, s: Integer;
- begin
- Write('p q: '); ReadLn(p,q);
- {k:=0; s:=0; n:=0;}
- repeat
- Inc(n);
- if (n mod p=0) and (n mod q=0) then begin
- Ink(k); s:=s+n; Write(' ',n);
- end;
- until k=8;
- WriteLn; WriteLn('Среднее: ',s/8:0:2);
- end.
Объяснение кода листинга программы
- В начале кода объявляются переменные n, p, q, k и s типа Integer.
- Затем происходит чтение значений переменных p и q с помощью функции ReadLn.
- В цикле repeat происходит увеличение переменной n на единицу.
- Если n делится на p и q без остатка, то значение переменной s увеличивается на n, а значение переменной k инкрементируется.
- Если условие (n mod p=0) and (n mod q=0) выполняется, то число n выводится на экран с помощью функции Ink.
- Цикл повторяется до тех пор, пока значение переменной k не станет равным 8.
- После окончания цикла выводится средний результат, который рассчитывается как отношение суммы s к 8.
- Выводится символ новой строки с помощью функции WriteLn.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д