готовясь к ГИА по информатике, столкнулся с проблемой.
Вот задача: В компьютер вводят вес, поднятый каждым тяжелоатлетом на соревнованиях. Признаком конца ввода данных является отрицательное число. Сосчитайте число спортсменов, которые смогли поднять больше 150 кг.
задача на паскаль
у меня вышло так.
var
z,x:integer;
begin
z:= 0;
writeln('введи вес поднятый спортсменом');
readln(x);
while x>0 do
if x>= 150 then z:= z+1;
writeln('количество спортсменов удовлетворяющих условию = ',z);
readln;
end.
проблема в том, что при проверке вводится только одно значение, а потом все виснет, и можно только закрыть окно.
вопрос в том, это у меня ошибка или сам паскаль корявый?
заранее спасибо.
Добавлено через 15 часов 45 минут
ап
Последний раз редактировалось ylkiora; 09.06.2012 в 13:27.
Причина: Добавлено сообщение