Учеба и наука

Решено

Задача по информатике - вопрос №566647

Кто поможет решить задачу в турбо паскале?

С помощью цикла с предусловием, подсчитать сумму и произведение кратных 5 на интервале от К до Л ?

февраль 28, 2013 г.

3-й в

411 отзыв

program zad;

uses crt;

var a,K,L:integer; s,p:longint;

begin

clrscr;

writeln('vvedite granici K,L');

readln(K,L);

s:=0; p:=1;

a:=(L div 5)*5;

while a>=K do

begin

s:=s+a;

p:=p*a;

a:=a-5;

end;

writeln('s=',s);

writeln('p=',p);

readln;

end.

март 2, 2013 г.

Ответ понравился автору

Лучший ответ по мнению автора