Series4. Решебник Абрамяна М. Э.

Series4. Дано целое число N и набор из N вещественных чисел. Вывести сумму и произведение чисел из данного набора.

Решение Pascal

program Series4;
var
  R,Sum,Pro:Real;
  i,N:Integer;
begin
  Sum:=0;
  Pro:=1;
  Write('Введите N: ');
  Readln(N);
  for i:=1 to N do
   begin
     Write('Введите ',i,' число: ');
     Readln(R);
     Sum:=Sum+R;
     Pro:=Pro*R;
   end;
  Writeln(Sum,' ',Pro);
end.

program Series4;

var

R,Sum,Pro:Real;

i,N:Integer;

begin

Sum:=0;

Pro:=1;

Write('Введите N: ');

Readln(N);

for i:=1 to N do

begin

Write('Введите ',i,' число: ');

Readln(R);

Sum:=Sum+R;

Pro:=Pro*R;

end;

Writeln(Sum,' ',Pro);

end.

Решение C

#include <stdio.h>
 
int main(void)
{
    float  sum=0,pro=1,r;
    int i;
    for (i=1; i<=10; ++i){
        printf("%i:",i);
        scanf("%f", &r);
        sum+=r;
        pro*=r;
    }
    printf("%f\n%f\n",sum,pro);
    return 0;
}

#include <stdio.h>

int main(void)

{

float sum=0,pro=1,r;

int i;

for (i=1; i<=10; ++i){

printf("%i:",i);

scanf("%f", &r);

sum+=r;

pro*=r;

}

printf("%f\n%f\n",sum,pro);

return 0;

}

На нашем сайте Вы можете заказать решение любой задачи по программированию на любом языке программирования

Поделитесь с друзьями

Образовательный портал uTeacher

Добавить комментарий Отменить ответ

Решебник Абрамяна М. Э. на Pascal и С++. Последовательности: группа Series (1-40)