• Помогите пожалуйста с задачей по Паскалю!

    Найти сумму и произведение чисел от A до B, которые делятся на C. Если таких чисел нет - сказать об этом.

Ответы 3

  • что такое d &
    • Автор:

      superman
    • 5 лет назад
    • 0
  • Если чисел, соответствующих условию не будет, d = 0
    • Автор:

      franco
    • 5 лет назад
    • 0
  • VarA,B,C,S,P,d:integer;BeginS:=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.
    • Автор:

      lily52
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years