<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrReal(10);
Write('В строку: '); a.Println;
Writeln('В столбец:'); a.PrintLines
end.
<u>Пример</u>
7.6 -4.4 -7.2 -4.4 2.2 -3.1 9.6 8.9 -7.1 -6.3
В строку: 7.6 -4.4 -7.2 -4.4 2.2 -3.1 9.6 8.9 -7.1 -6.3
В столбец:
7.6
-4.4
-7.2
-4.4
2.2
-3.1
9.6
8.9
-7.1
-6.3
----------------------
begin
var a:=ReadMatrReal(3,3); a.Println(7,2); Writeln;
a.Transform(t->2*t); a.Println(7,2)
end.
<u>Пример</u>
7.6 -4.4 -7.2 -4.4 2.2 -3.1 9.6 8.9 -7.1
7.60 -4.40 -7.20
-4.40 2.20 -3.10
9.60 8.90 -7.10
15.20 -8.80 -14.40
-8.80 4.40 -6.20
19.20 17.80 -14.20
Ответ:
TWITTER
Объяснение:
Переводим последние 7 символов в 16-ричную форму:
1010100 = 54
1010111 = 57
1001001 = 49
1010100 = 54
1010100 = 54
1000101 = 45
1010010 = 52
Открываем таблицу ASCII (пользовался вики) и сопоставляем символы: 54 = T, 57 = W, 49 = I, 45 = E, 52 = R
P. S. Можно переводить не в 16-ричную, а сразу в десятичную, тогда будет:
1010100 = 84
1010111 = 87
1001001 = 73
1010100 = 84
1010100 = 84
1000101 = 69
1010010 = 82
и далее по Вашей таблице опять же получится TWITTER
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,y,z):=ReadReal3;
var u:=Min((x+y+z)/2,x*y*z)+1;
Writeln(u)
end.
Ну наверно набираешь 5 литровое и переливаешь его в в 9, потом снова набераешь 5 и наполняешь 9 до черты в 5 останется литр воды вот и все дела=)))))