begin
var q := ReadSeqInteger(3);
Write(q.Sorted.Take(2).Aggregate(0, (s, x)-> s + x * x).Sqrt:0:9);
end.
№1
Стиральная машина, утюг, телевизор
№2
2(рубанок) и 4(швейная машинка)
№3
1-5,6
2-7
3-3
4-4
5-6
6-1
7-2
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a:=Random(1,9);
var b:=Random(1,9);
Writeln('Сколько будет ',a,'x',b,'?' );
var c:=ReadInteger('Введите ответ и нажмите Enter ->');
if c=a*b then Writeln('Правильно!')
else Writeln('Вы ошиблись, ',a,'x',b,'=',a*b)
end.
<u><em>Тестовые примеры:</em></u>
Сколько будет 7x4?
Введите ответ и нажмите Enter -> 28
Правильно!
Сколько будет 8x7?
Введите ответ и нажмите Enter -> 65
Вы ошиблись, 8x7=56
Налево при x = 1
Направо при x = 21
Ответ: 1, 21
-------------------
Действие y := x + 12 выполнятся не будет вообще, т.к. x должен быть -8, но это число является истинным для первого условия x < 3, поэтому туда программа не пойдет.
Формальный язык это придуманный язык для удобства при общении, например, язык глухонемых
4) Язык программирования