Помогите пожалуйста с задачей по Паскалю! Найти сумму и произведение чисел от A до B, которые делятся на C. Если таких чисел нет - сказать об этом.
Помогите пожалуйста с задачей по Паскалю!
Найти сумму и произведение чисел от A до B, которые делятся на C. Если таких чисел нет - сказать об этом.
Гость
Ответ(ы) на вопрос:
ГостьVar
A,B,C,S,P,d:integer;
Begin
S:=0;
P:=1;
d:=0;
Write('A = ');Read(A);
Write('B = ');Read(B);
Write('C = ');Read(C);
For var i:= A to B do
if i mod C = 0 then
Begin
S:=S+i;
P:=P*i;
d:=1;
End;
if d = 1 then Write('S = ',S,' P = ',P)
else Write('Таких чисел нет');
End.
Не нашли ответ?
Похожие вопросы