Решаем задачи Абрамян на Паскале. Series7

Series7. Дано целое число $$N$$ и набор из $$N$$ вещественных чисел. Вывести в том же порядке округленные значения всех чисел из данного набора (как целые числа), а также сумму всех округленных значений.

Решение:

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

program Series7;

var

R,Sum:Real;

i,N:Integer;

begin

sum:=0;

Write('N: ');

Readln(N);

for i:=1 to N do

begin

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

Readln(R);

Writeln(round(R));

Sum:=Sum+round(R);

end;

Writeln(Sum);

end.

Другие задачи из раздела Series можно посмотреть здесь.

Комментарии 4

uses PT4;
var n,i,sum:integer;
var k:real;
begin
  Task('Series7');
  
read(n);
for i:=1 to n do
   begin
      read(k);
      write(round(k));
      sum:=sum+round(k);
   end;
   write(sum);
end.

uses PT4;

var n,i,sum:integer;

var k:real;

begin

Task('Series7');

read(n);

for i:=1 to n do

begin

read(k);

write(round(k));

sum:=sum+round(k);

end;

write(sum);

end.

Ответить

Pro:=Pro+(R-Trunc(R)) — это сумма дробных частей числа, совсем не то. Согласен с Кириллом.

Ответить

мда… решил какую то другую задачу,и к сожалению не понял, что хотел сказать Кирилл.
Поправил:
Было:

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

program Series7;

var

R,Sum:Real;

i,N:Integer;

begin

sum:=0;

Write('N: ');

Readln(N);

for i:=1 to N do

begin

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

Readln(R);

write(round(R));

Sum:=Sum+round(R);

end;

Writeln(Sum);

end.

Стало:

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

program Series7;

var

R,Sum:Real;

i,N:Integer;

begin

sum:=0;

Write('N: ');

Readln(N);

for i:=1 to N do

begin

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

Readln(R);

Writeln(round(R));

Sum:=Sum+round(R);

end;

Writeln(Sum);

end.

Ответить

begin
  var n:=ReadlnInteger('n =');
  write('введите ',n,' вещ.чисел: ');
  var a:=ReadArrReal(n);
  a.Select(t->round(t)).Println;
  write('Сумма = ',a.Sum(t->round(t)));
end.

begin

var n:=ReadlnInteger('n =');

write('введите ',n,' вещ.чисел: ');

var a:=ReadArrReal(n);

a.Select(t->round(t)).Println;

write('Сумма = ',a.Sum(t->round(t)));

end.

Ответить

Решаем задачи Абрамян на Паскале. Series7

Комментарии:

Комментарии 4

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