|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.06.2011, 19:26 | #1 |
Регистрация: 15.06.2011
Сообщений: 4
|
Построить блок - схему
program a2;
var a,b,k,sum:integer; sr:real; begin writeln('Введите значение конца интервала'); readln(b); a:=1; k:=0; if (b>a) then begin sum:=0; for a:=1 to b do begin sum:=sum+a; a:=a+1; inc(k); end; sr:=sum/k; writeln('Среднее значение'); writeln(sr); end; end. |
17.06.2011, 21:54 | #2 |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
Держите вашу схему
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Построить блок - схему | katyuha_e | Паскаль, Turbo Pascal, PascalABC.NET | 9 | 06.05.2012 21:51 |
построить блок схему тт | kresik | Помощь студентам | 0 | 08.06.2011 17:12 |
Построить блок-схему | demon9992 | Помощь студентам | 2 | 05.04.2011 16:23 |
Построить блок - схему | DeadAir | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 03.04.2010 15:02 |