Vara,b,sr_ar:real;beginwriteln('Введите числа a и b: ');readln(a,b);sr_ar:=(a+b)/2;if sr_ar>15 then writeln('Площадь равна ',a*b)elsewriteln('Среднее арифметическое этих чисел равен ',sr_ar);end.
Алик - Симонов, Володя - Лунин, Миша - Петров, Юра - Балашов
ПРОСТИТЕ ЗА КАЧЕСТВО
1.
1200*14=16 800 (бит)
Ответ 16800 бит за 14 сек.
2.-?
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
if ReadlnString.ToLower.Contains('кот') then Print('МЯУ')
else Print('ГАВ')
end.
<h2>Примеры</h2>
Извините, пожалуйста, вы не подскажете, который час?
МЯУ
Кто я? кто
ГАВ
Var a, b, c: integer;
function max(a, b : integer) : integer;
begin
if a>b then max:=a
else max:=b;
end;
begin
readln(a, b, c);
writeln(max(max(a, b),c)-5);
end.