Во-первых, в первом туре играли лейтенант, майор и сержант, следовательно ни один из них не является летчиком, танкистом и минометчиком. капитан не является танкистом. капитан и ефрейтор не являются минометчиком. майор не является связистом. лейтенант и майор не являются сапером.
{ s(трапеции) = ((a+b)/2)*h; } uses crt; var a, b, h: Integer; (Real) s: Real; begin WriteLn('Введите а: ',a);ReadLn(a); WriteLn('Введите b: ',b);ReadLn(b); WriteLn('Введите h: ',h);ReadLn(h); s:= ((a+b)/2)*h; WriteLn('S = ', s); ReadLn; end. Если же а и б должны быть обязательно меньше h, то: if (a < h) and (b < h) then begin WriteLn('Введите а: ',a);ReadLn(a); WriteLn('Введите b: ',b);ReadLn(b); WriteLn('Введите h: ',h);ReadLn(h); s:= ((a+b)/2)*h; WriteLn('S = ', s); ReadLn; end; else begin WriteLn('Основания не меньше h!'); ReadLn; end;
{ s(трапеции) = ((a+b)/2)*h; } uses crt; var a, b, h: Integer; (Real) s: Real; begin WriteLn('Введите а: ',a);ReadLn(a); WriteLn('Введите b: ',b);ReadLn(b); WriteLn('Введите h: ',h);ReadLn(h); s:= ((a+b)/2)*h; WriteLn('S = ', s); ReadLn; end. Если же а и б должны быть обязательно меньше h, то: if (a < h) and (b < h) then begin WriteLn('Введите а: ',a);ReadLn(a); WriteLn('Введите b: ',b);ReadLn(b); WriteLn('Введите h: ',h);ReadLn(h); s:= ((a+b)/2)*h; WriteLn('S = ', s); ReadLn; end; else begin WriteLn('Основания не меньше h!'); ReadLn; end;
Во-первых, в первом туре играли лейтенант, майор и сержант, следовательно ни один из них не является летчиком, танкистом и минометчиком. капитан не является танкистом. капитан и ефрейтор не являются минометчиком. майор не является связистом. лейтенант и майор не являются сапером.
Майор-артиллерист. Капитан-летчик. Лейтенант-связист старшина-минометчик сержант-сапер ефрейтор-танкист