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

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

Задать свой вопрос
1 ответ

Поправил

 

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

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт