Консультация № 138288
28.05.2008, 14:52
0.00 руб.
0 1 1
Дыны числа Р и Н. Определить сумму чисел меньше Р, произведение чисел больше Н и количество чисел больше Н и количество чисел в диапазоне значений Р и Н. При вводе числа равного Р или Н закончить роботу.


Приложение:
Помогите пожалуйста

Обсуждение

давно
Профессор
401888
1232
29.05.2008, 07:12
общий
это ответ
Здравствуйте, Света Кузнецова!
Решение с комментариями в приложении. Успехов на Роллан Гаррос! (шутка).

Приложение:
uses crt;var a,p,h,sum,pr,kh,kph:integer;beginclrscr;write(‘p=‘);readln(p);repeat {проверяемость на ввод числа Р, чтобы больше Н}write(‘h=‘);readln(h);if h<=p then writeln(‘Vvedite h>p!‘);until h>p; {конец проверки}sum:=0;pr:=1;kph:=0;kh:=0;repeatwrite(‘Vvedite chislo: ‘); {в цикле вводим число}readln(a);if a<p then sum:=sum+a {если <р, считаем сумму}else if (a>=p)and(a<=h)then {если в интервале}kph:=kph+1 {считаем количество}else if a>h then {если больше Н} begin pr:=pr*a; {считаем произведение} kh:=kh+1; {считаем количество} end;until (a=p)or(a=h); {заканциваем ввод}writeln;writeln(‘Summa chisel<p=‘,sum);writeln(‘Proizvedenie chisel>h [p,h]=‘,pr);writeln(‘Kolichestvo chisel >h [p,h]=‘,kh);writeln(‘Kolichestvo chisel v intervale [p,h]=‘,kph);readlnend.
Форма ответа