// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=ReadReal3('Введите три числа через пробел:');
Write('Натуральный логарифм квадрата суммы первого и третьего числа ',
Ln(Sqr(a+c)):0:2)
end.
Если рулон обоев по 2.5 метров, то можно сделать 8 рулонов на четыре пятиметровые стены в длинну и 2.5 метров в высоту
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadlnInteger('Количество слов в массиве:');
var a:=ReadArrString('Введите слова, каждое с новой строки:',n);
var s:=a.Select(w->(w,w.Length));
var lm:=s.Max(t->t[1]);
s.Where(t->t[1]=lm).Take(2).Select(t->t[0]).JoinIntoString('')
.Where(c->c in 'AEIOUY').Distinct.Println
end.
Var a,b: integer;
<span>begin
</span><span> write('a = '); readln(a);
</span><span> write('b = '); readln(b);
</span><span> a:=a+b;
</span><span> b:=a-b;
</span><span> a:=a-b;
</span><span> writeln('a = ',a,' b = ',b);
</span><span>end.
</span>a = 15
<span>b = 20
</span><span>a = 20 b = 15
</span>
1г 2а 3б 4б 5б 6г 7в 8а
11в 12б 13а 14г 15в 16г 17а 18б 19в 20г