Показать сообщение отдельно

  #2  
Старый 10.02.2010, 19:43
WNZRS
Участник форума
Регистрация: 03.09.2009
Сообщений: 179
Провел на форуме:
1014907

Репутация: 90
Отправить сообщение для WNZRS с помощью ICQ
По умолчанию

Паскаль не знаю...
Код:
var:
count, sum, ch:integer
begin
do
begin
readln(ch);
count=count+1;
sum=sum+ch;
end;
while(sum < 50 OR count < 5)
end.
С++
Код:
#include <stdio.h>

int main()
{
int sum = 0,count = 0,sh = 0;
while(sum < 50 || count < 5)
{
scanf("%d", &ch);
sum += ch;
count++;
}
return 0;
}