Program skot;
var b, {быки}
 k, {коровы}
 t: integer; {телята}
begin
 for b:=0 to 10 do
 for k:=0 to 20 do
 begin
 t:=100-(b+k);
 if 20*b+10*k+t=200 then
 begin
 writeln('Быков: ', b:4);
 writeln('Коров: ', k:4);
 writeln('Телят: ', t:4)
 end
 end;
readln;
end.
Выполнив эту программу, ЭВМ напечатала такие результаты:
Быков: 1
Коров: 9
Телят: 90

Оценка - 1.0 (9)

2012-06-22 • Просмотров [ 2609 ]