Var
x, y, z: integer;
begin
read(x, y, z);
if (x = y) and (y = z) and (x = z) then
begin
x := 3 * x;
y := 3 * y;
z := 3 * z;
write(x, y, z);
end
else
if (y = z) then
begin
x := -x;
y := -y;
z := -z;
write(x, y, z);
end
else
begin
x := 222;
y := 222;
z := 222;
write(x, y, z);
end;
end.
Ответ:
Должна быть не маленькая англ. буква l, а большая англ. буква I
Объяснение:
<em>// PascalABC.NET 3.3, сборка 1542 от 05.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (n,m):=ReadInteger2('Введите через пробел n и m:');
var a:=ArrRandom(10,n,m);
a.Println
end.
<u>Пример</u>
Введите через пробел n и m: -6 20
15 10 16 17 1 14 -4 19 1 18
1) Решение квадратного уравнения через дискриминант
2) Нахождение производной сложной функции
3) Нахождение экстремума функции
4) Решение уравнения с одним неизвестным
5) Решение уравнение с двумя неизвестными
6) Нахождение площади куба/параллелограма/квадрата и тд
7) Нахождение периметра
Достаточно? :D
Разделим исходный код на группы по 3 разряда.
1011012 = 101 101 2
Затем заменяем каждую группу на код из таблицы.
Двоичная СС Восьмеричная СС
000 0
001 1
010 2
011 3
100 4
101 5
110 6
111 7
Получаем число:
101 101^2 = 55^8