// PascalABC.NET 3.3, сборка 1573 от 04.11.2017 // Внимание! Если программа не работает, обновите версию!
a)
begin var (a,b):=ReadReal2('Введите через пробел два числа:'); if a>b then Writeln('Первое число больше второго') else if b>a then Writeln('Второе число больше первого') else Writeln('Числа равны') end.
b)
begin var (a,b):=ReadReal2('Введите через пробел два числа:'); if a<b then Writeln('Первое число меньше второго') else if b<a then Writeln('Второе число меньше первого') else Writeln('Числа равны') end.
Смотри. 1. Ни Климов, ни Ушаков не умеют играть ни на одном музыкальном инструменте. Следовательно, они не учителя музыки. 2. Учителя рисования и информатики в воскресенье уезжают на дачу к Михеенко. Следовательно, Михеенко не учитель рисования и информатики. 3. Жебин попросил учителя рисования написать картины с его изображением и изображением Климова. Следовательно, Жебин и Климов не учителя рисования. Из этого следует, что учитель рисования - Ушаков. 4. Учителя рисования и информатики в воскресенье уезжают на дачу к Михеенко. Раз учитель рисования Ушаков, а он не знаком с Климовым, значит Климов не учитель информатики, а учитель матеметики. Михеенко - учитель музыки, а Жебин учитель информатики.
// Внимание! Если программа не работает, обновите версию!
a)
begin
var (a,b):=ReadReal2('Введите через пробел два числа:');
if a>b then Writeln('Первое число больше второго')
else
if b>a then Writeln('Второе число больше первого')
else Writeln('Числа равны')
end.
b)
begin
var (a,b):=ReadReal2('Введите через пробел два числа:');
if a<b then Writeln('Первое число меньше второго')
else
if b<a then Writeln('Второе число меньше первого')
else Writeln('Числа равны')
end.