| Dirt_nba | Дата: Вторник, 22.01.2008, 15:34 | Сообщение # 1 |
 Знакомый
Группа: Пользователи
Сообщений: 11
Статус: Offline
| написать прогу вычисления суммы ряда
S=1+2+3+4+5+6.
я люблю баскетбол
|
| |
| |
| ymatem | Дата: Четверг, 24.01.2008, 23:27 | Сообщение # 2 |
 Знакомый
Группа: Пользователи
Сообщений: 13
Статус: Offline
| program a1;
var
i,s,n: integer;
begin
write('введите количество слогаемых');
readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln(s);
end.
|
| |
| |
