10.02.2010, 20:03
|
|
Участник форума
Регистрация: 15.05.2008
Сообщений: 166
С нами:
9467906
Репутация:
128
|
|
total90, а что не все выписал? 
var:
count, sum, ch:integer
begin
do
begin
readln(ch);
count=count+1;
sum=sum+ch;
end;
while(sum < 50 OR count < 5)
end.
|
|
|