ЛИЦЕТВОРИЛТinterИспользуя таблицу «Расчет заработной - вопрос №10966373 от irunadp0a62f 13.10.2020 04:49

Question

Информатика: ЛИЦЕТВОРИЛТinterИспользуя таблицу «Расчет заработной платы за месяц» файла «Расчеты»,комплекс таблиц расчета заработной платы за кварталABCD E FEVERРАСЧЕТ ЗАРАБОТНОЙ ПЛАТЫ ЗА 1 КВАРТАЛЗА ЯНВАРЬСредняяПремияФИОИтого кИтого подоходный |Складзарплата20% начислено налог 13% Выдачеза месяц4 Баранова Л.В. 15000 ???? |5 Васильев сH. 8000 ???? |Б Петрова А.Г. 11000 ? ???7 Петухова ОС. 9800 ???? |в Савин И.Н. Е 12500 | ????| 10ЗА ФЕВРАЛЬФИОСкладПремия | Итого подоходный27% начислено налог 13%ИТОГО КвыдачеСредняязарплатаза

irunadp0a62f · Answer

// 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.