|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
02.06.2009, 17:24 | #31 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
02.06.2009, 17:26 | #32 |
Пользователь
Регистрация: 31.05.2009
Сообщений: 23
|
спс те огромное хорощий тут у вас форум)
|
03.06.2009, 17:14 | #33 |
Пользователь
Регистрация: 31.05.2009
Сообщений: 23
|
1
Привет всем ! сного я ))
подскажите как нарисовать блог схемы к 2 задачкам! 1 вот эта program c4; uses crt; var n,k,kmax,sum:integer; begin writeln(' Vvedite "K" i "N" cherez probel'); readln(kmax,n); if (kmax <= 0 ) or (n <= 0) then begin writeln('Error! K <= 0 ili N <= 0'); exit; end; k := 1; while (k <= kmax) do begin if (n mod 4 = 0) then begin sum := sum + n; inc(k); end; inc(n); end; writeln('summa pavna:'); write(sum); end. а 2 счас допишу и чуть позже выложу. плиз) |
03.06.2009, 18:18 | #34 |
Пользователь
Регистрация: 31.05.2009
Сообщений: 23
|
подскажите что должно быть еще в начале
|
03.06.2009, 18:18 | #35 |
Пользователь
Регистрация: 31.05.2009
Сообщений: 23
|
вод или что там еще?
|
04.06.2009, 13:06 | #36 |
Пользователь
Регистрация: 31.05.2009
Сообщений: 23
|
народ помогите сделать алгоритмизацию
надо составить блок схему вот по этой проге program c4; uses crt; var n,k,kmax,sum:integer; begin writeln(' Vvedite "K" i "N" cherez probel'); readln(kmax,n); if (kmax <= 0 ) or (n <= 0) then begin writeln('Error! K <= 0 ili N <= 0'); exit; end; k := 1; while (k <= kmax) do begin if (n mod 4 = 0) then begin sum := sum + n; inc(k); end; inc(n); end; writeln('summa pavna:'); write(sum); end. помогите сросно уже мучаюсь 2 дня с этой прогой плиз плиз плизззз |
04.06.2009, 17:34 | #37 |
Пользователь
Регистрация: 31.05.2009
Сообщений: 23
|
помогите срочно прошу ппц просто плизз блог схему
|
05.06.2009, 00:08 | #38 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
скачайте FCEditor
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
помогите пожалуйсто!!!!!!! | Artom | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 21.05.2009 19:27 |
Помогите пожалуйста с задачкой Паскаль | art_melnichenko | Помощь студентам | 4 | 26.01.2009 11:05 |