Через 1/32 секунды
p.s. надо писать минимум 20 символов
1. var a, b :real;
begin readln(a, b); writeln(sqrt(a*a + b*b)); end.
2. var s1, s2, a1, a2 :real;
begin readln(s1, s2);
if s1 / 3.14159265 < s2 / 4 then writeln('yes') else writeln('no');
end.
3. var x, y :real;
begin readln(x);
if x < -10 then y:=234 - x*x*x else y:=x * x + 54;
writeln(y);
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var c:=ArrRandom(ReadInteger('n='),-50,50); c.Println;
var imax:=c.IndexMax;
c:=c?[:imax]+c?[imax+1:]; c.Println
end.
<u>Пример</u>
n= 15
-5 -23 44 41 23 29 -36 -13 -45 -36 -37 33 -34 -18 33
-5 -23 41 23 29 -36 -13 -45 -36 -37 33 -34 -18 33
Var a, b: real;
{а – возраст Маши; b – возраст Cаши}
begin
readln (a, b);
if A>B then
writeln ('Маша старше Саши')
else if a=b then
writeln('Саша и Маша ровесники')
else
writeln ('Саша старше Маши');
readln;
<span>end.</span>
Для простоты решения сначала переводим все в десятичную систему. Для этого расписываем данные числа в развернутой форме и просто считаем.
x+y = 161+13 = 174