Rusya | Дата: Среда, 15.06.2011, 13:13 | Сообщение # 1 |
Сержант
Группа: Новичок
Сообщений: 6
[ 0 ]
Статус: Offline
| program aaa; uses crt; const n=7; var a:array[1..n] of integer; i,s:integer; begin clrscr; randomize; for i:=1 to n do begin a[i]:=round(9*random-5); write(a[i]:5); end; i:=1; while (s<40) and (i<=n) do begin s:=s+a[i]*a[i]; i:=i+1; end; writeln; if s>40 then writeln(i-1) else writeln('Vvedenie chisla slishkom mali') end.
Сообщение отредактировал Rusya - Среда, 15.06.2011, 13:16 |
|
| |
KOT_B_MEIIIKE | Дата: Среда, 15.06.2011, 15:18 | Сообщение # 2 |
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
| http://zadachki.ucoz.ru/index/0-7 там есть прога, которая блоксхемы сама составляет)
|
|
| |
Rusya | Дата: Среда, 15.06.2011, 15:52 | Сообщение # 3 |
Сержант
Группа: Новичок
Сообщений: 6
[ 0 ]
Статус: Offline
| а алгоритм можете составить? сам не могу додуматься
Сообщение отредактировал Rusya - Среда, 15.06.2011, 16:07 |
|
| |
KOT_B_MEIIIKE | Дата: Среда, 15.06.2011, 17:15 | Сообщение # 4 |
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
| да что тут думать... просто построчно выпоняешь...
|
|
| |