Задать вопрос Регистрация
Помочь другим

  • Составить программу которая находит сумму и произведение n первых чисел кратных 5

Ответы 1

  • Исправил

     

    var a,b,n,i,num:integer;beginreadln(n);b:=1;i:=5;while num<n do begina:=a+i;b:=b*i;i:=i+5;inc(num);end;writeln(a,' ',b);end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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