Ответ:
Здесь одно предложение, поэтому вся информация новая
Program n1;
Uses CRT;
Var a,b: integer;
begin
Writeln('Vvedite chisla');
Readln(a,b);
If a>b then writeln(2*a*b,' ',a+b/2:2:2)
else if a=b then writeln('ravny!')
else writeln(a+b/2:2:2,' ',2*a*b);
readln
end.
Алг а1
нач
вещ первое, второе
ввод первое, второе
вывод первое/второе
кон
<em><u>Тестовое решение:</u></em>
>> 01:12:23 - Новая программа* - Выполнение начато
16.5 3
5.5
>> 01:12:34 - Новая программа* - Выполнение завершено
алг а2
нач
цел число1, число2, число3, произведение
ввод число1, число2, число3
произведение:= число1*число2*число3
если произведение <50 то
вывод 10*число1,", ",10*число2,", ",10*число3
иначе вывод произведение
все
кон
Тестовое решение:
>> 01:18:48 - Новая программа* - Выполнение начато
4 2 3
40, 20, 30
>> 01:18:59 - Новая программа* - Выполнение завершено
>> 01:20:19 - Новая программа* - Выполнение начато
5 6 7
210
>> 01:20:23 - Новая программа* - Выполнение завершено
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadlnString.Reverse.Println
end.
<u>Пример</u>
рука
акур
3F в шестнадцатеричной = 3×16+15=63 в десятичной