Даны два целых числа a и b (a < b). найти произведение всех целых чисел от a до b включительно.программа паскаль,нужен только цикл while

199

298

Посмотреть ответы 2

Ответы на вопрос:

komarrik

Информатика

4,8(13 оценок)

Var a,b: integer; p: real; begin write('a='); readln(a); write('b='); readln(b); p: =1; while a< =b do begin p: =p*a; a: =a+1; end; writeln('p=',p); end. пример: a=2 b=5 p=120

ПростоТим5

Информатика

4,6(10 оценок)

Program pr3; const {убраны лишние описатели - чистая косметика} a = 2.12; b = 7.45; h = 0.34; var x, f1, f2, y, s: real; i, n: integer; {описание, необходимое для цикла} begin { x : = a; этот оператор не нужен } s : = 0; n : = trunc((b - a) / h)+1; {стандартная формула числа повторений цикла } for i : = 1 to n do { заголовок цикла } begin {начало блока для выполнения в цикле } x : = a + (i - 1) * h; { перенесено из конца цикла } f1 : = 3 * ln(exp(1 / 5) * ln(sin(x) + sqr(; f2 : = ((2 * x + 1) / (x * x * x * x * x)); y : = f1 / f2; s : = s + y; end; {конец блока для выполнения в цикле } writeln('s=', s: 10: 5); end. тестовое решение: s=26390.53751