Можно заменить на слово noun
PascalABC.NET
uses
System.Collections.Generic;
var
arr: List<<em>single</em>> := new List<<em>single</em>>();
i: integer;
begin
writeln('i':2, 'arr[i]':7, #13, new string('-', 9));
for i := 1 to 10 do
begin
arr.Add(Random(-5, 5));
writeln(i:2, arr[i - 1]:7);
end;
writeln(new string('-', 9));
arr.RemoveAt(3);
for i := 1 to 9 do
writeln(i:2, arr[i - 1]:7);
end.
Надеюсь я правильно понял суть заданий.
Номер 1.
Program n_1;
var a: integer; b:double;
begin
readln(a);
b:=(a mod 10 + a div 10)/2;
writeln(b:0:1);
end.
Номер 2.
Program n_2;
var a: integer;
begin
readln(a);
a:=a div 10 - a mod 10;
writeln(a);
end.
Номер 3.
Program n_3;
var a, b: integer;
begin
readln(a);
b:=a div 1000;
a:=a - a div 1000 * 1000;
writeln(b , ' кг ', a, ' г');
end.
Номер 4.
Program n_4;
var a: int64;
begin
readln(a);
writeln(a div 10000, ' км^2');
end.
Открыть
Проверить на вирусы
Открыть с помощью
Копировать
Отправить
Удалить
Свойства
7^5 = 16807
Возможны следующие программы, состоящие из 5 команд:
11111 -> 7^5 * 2^5 = 16807 * 32 = 537 824
11112 -> 7^4 * 2^4 = 2401 * 16 = 38 416
11122 -> 7^3 * 2^3 = 343 * 8 = 2744
11222 -> 7^2 * 2^2 = 49 * 4 = 196
12222 -> 7 * 2 = 14
22222 -> 1
Так как последовательность выполнения команд 1 и 2 не влияет на результат (например, результат программ 11122 и 12121 будет одинаковым), то количество различных чисел = 6