Здравствуйте
(150, 200)
(130, 150)
(180, 210)
(200, 150)
Всего запусков будет 4
Объяснение:
все очень просто например возьмем правильный запуск
(150, 200)
x=150 y= 200 теперь подставляем в систему место y 200 а вместо x 150
теперь получается 200>=150 and 150<=200 получается что система выдаст да . В этом задание простой принцип подставлять числа которые даны место букв. При этом если одна часть не правильна например возьмем
(190, 140)
x=190 y=140 подставляем 140>=150 and 190<=200 .
140>=150 неверно
190<=200 верно но все ровно ответ выдается НЕТ т.к одна часть системы не равна
var a,s,k,p:integer;
begin
k:=0;
p:=1;
s:=0;
begin
while a<>100 do begin
readln(a);
if (a mod 2 = 0) then
k:=k+1;
if (a<0) then
s:=s+a;
if (a >=5) and (a <= 15) then
p:=p*a;
end;
end;
writeln(k, ' ', s, ' ',p);
end.