Народ помогите с информатикой(сорь если не там тему сделал)

[SinatoR]

вообщем это нужно сделать втурбо паскале через оператор ваил:

Введете числа с кловиатуры пока их сумма не привысет число 50 или их количество не станет больше 5


заранее СПАСИБО)

[WNZRS]

Паскаль не знаю...
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;
}

[fatalo]

WNZRS, прочитай свой код. Почему OR? AND нужно ставить.
ТС,кинул в пм.

[total90]

sum=sum+ch;


sum:=sum+ch

[fatalo]

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.

[SinatoR]

народ над в турбопаскале...мы вот делали и одноклассники мы такого еще не прошли...

[total90]

while *** do
begin
****
end;


такая структура должна быть, вроде


народ над в турбопаскале...мы вот делали и одноклассники мы такого еще не прошли...

что ты тут не знаешь? :eek:

[SinatoR]

count у нас небыло

[SinatoR]

ну вродь понятно то что значит посчитать

[fatalo]

ну вродь понятно то что значит посчитать
Замени count на peremennaya

[total90]

кстати намного проще было бы написать с помощю repeat until

[root_sashok]

uses crt;
var i, s, k: integer;
begin
clrscr;
s:=0;
i:=0;
while (s < 50) and (i < 5) do
begin
write ('Введите число: ');
readln (k);
i:=i+1;
s:=s+k;
end;
end.

Введите число: 10
Введите число: 20
Введите число: 30

[Процесс завершен]

Введите число: 51

[Процесс завершен]

[SinatoR]

root_sashok СПАСИБО!!!