Задача в паскале. Помогите - Помощь студентам

EvgeniaArtemovna · 21.02.2016, 11:03

Del

newerow1989 · 21.02.2016, 11:09

Код:

var i:integer;
    a,r:real;
begin
   r:=0;
   For i:=1 to 10 do
   begin
      Readln(a);
      r:=r+a/10;
   end;
   Writeln(r:5:5);
   Readln;
end.

Код:

var i:integer;
    a,r:real;
begin
   r:=0;
   i:=0;
   Repeat
      i:=i+1;
      Readln(a);
      r:=r+a/10;
   Until i=10;
   Writeln(r:5:5);
   Readln;
end.

Сойдет?

EvgeniaArtemovna · 21.02.2016, 11:41

Цитата:

Сообщение от newerow1989

Код:

var i:integer;
    a,r:real;
begin
   r:=0;
   For i:=1 to 10 do
   begin
      Readln(a);
      r:=r+a/10;
   end;
   Writeln(r:5:5);
   Readln;
end.

Код:

var i:integer;
    a,r:real;
begin
   r:=0;
   i:=0;
   Repeat
      i:=i+1;
      Readln(a);
      r:=r+a/10;
   Until i=10;
   Writeln(r:5:5);
   Readln;
end.

Сойдет?

А почему в обеих программах получается такое среднее арифметическое?

Serge_Bliznykov · 21.02.2016, 19:13

Цитата:

Сообщение от EvgeniaArtemovna

А почему в обеих программах получается такое среднее арифметическое?

Какое - "такое" ?!

newerow1989 · 22.02.2016, 05:19

А почему первый пост удалили?

Serge_Bliznykov · 22.02.2016, 19:13

Цитата:

Сообщение от newerow1989

А почему первый пост удалили?

Это сделала сама EvgeniaArtemovna.
Зачем - не знаю

Видимо, тема потеряла для неё актуальность.

21.02.2016, 11:03	#1
EvgeniaArtemovna Новичок Джуниор Регистрация: 21.02.2016 Сообщений: 6	Задача в паскале. Помогите Del Последний раз редактировалось EvgeniaArtemovna; 21.02.2016 в 19:47.

21.02.2016, 11:09	#2
newerow1989 Я самый любопытный Участник клуба Регистрация: 24.07.2012 Сообщений: 1,949	Код: `var i:integer; a,r:real; begin r:=0; For i:=1 to 10 do begin Readln(a); r:=r+a/10; end; Writeln(r:5:5); Readln; end.` Код: `var i:integer; a,r:real; begin r:=0; i:=0; Repeat i:=i+1; Readln(a); r:=r+a/10; Until i=10; Writeln(r:5:5); Readln; end.` Сойдет? С запрограммированным приветом, Неверов Евгений! Сайт: http://newerow1989.ru [Паскаль] [Delphi]

22.02.2016, 05:19	#5
newerow1989 Я самый любопытный Участник клуба Регистрация: 24.07.2012 Сообщений: 1,949	А почему первый пост удалили? С запрограммированным приветом, Неверов Евгений! Сайт: http://newerow1989.ru [Паскаль] [Delphi]

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
помогите. задача в паскале	Руслана17	Паскаль, Turbo Pascal, PascalABC.NET	15	20.10.2014 18:00
строки в паскале.Задача,помогите решить	Настя33	Помощь студентам	1	21.02.2014 19:18
Помогите! Задача на списки в паскале	Kinkl	Помощь студентам	2	12.04.2011 14:30