// PascalABC.NET 3.2, сборка 1436 от 01.05.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=new integer[4,4] ((1,15,14,4),(12,6,7,9),(8,10,11,5),(13,3,2,16)); a.Println(3); var b:=new integer[6,6] ((6,32,3,34,35,1),(7,11,27,28,8,30), (19,14,16,15,23,24),(18,20,22,21,17,13),(25,29,10,9,26,12), (36,5,33,4,2,31)); Writeln; b.Println(3); end.
2. 19 из 10-ой переведём в 6-ую = 31. Также переведём 33 из 10-ой в 6-ую = 53. Перечислим все наборы: 33 34 35 40 41 42 43 44 45 50 51 52 53. Считаем тройки и получаем их количество - 6.
4. Переведём число 30 из 10-ой в 4-ую СС и получим: 132. Нам надо найти числа, которые оканчиваются на 31. Значит все последующие разряды будут x. x31 < 132. Если x = 0, то будет следующее число 031, оно меньше 132 и значит подходит. Если x = 1, то будет число 131 и оно также подходит. Все последующие число не подходят, поэтому ответ только два числа.
CLS a: INPUT n IF n < 1 OR INT(n) <> n OR n > 1000 THEN GOTO a DIM a(n) h=30000 FOR i = 1 TO n b: INPUT a(n) IF a(n) < 1 OR INT(a(n)) <> a(n) OR a(n) > 30000 THEN GOTO b IF INT ((a(n) - 4 ) / 10) = ((a(n) - 4) / 10) AND a(n) < h THEN h = a(n) NEXT i PRINT h END или: n - количество чисел i - цикловая переменная a - натурально число min - минимальное число, оканчивающееся на 4 Язык програмирования: Паскаль var n,i,a,min: integer; begin readln(n); min := 30001; for i := 1 to n do begin readln(a); if (a mod 10 = 4) and (a < min) then min := a; end; writeln(min) end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=new integer[4,4] ((1,15,14,4),(12,6,7,9),(8,10,11,5),(13,3,2,16));
a.Println(3);
var b:=new integer[6,6] ((6,32,3,34,35,1),(7,11,27,28,8,30),
(19,14,16,15,23,24),(18,20,22,21,17,13),(25,29,10,9,26,12),
(36,5,33,4,2,31));
Writeln;
b.Println(3);
end.
Результат:
1 15 14 4
12 6 7 9
8 10 11 5
13 3 2 16
6 32 3 34 35 1
7 11 27 28 8 30
19 14 16 15 23 24
18 20 22 21 17 13
25 29 10 9 26 12
36 5 33 4 2 31