Дан массив целых чисел из 18 элементов,заполненный случайным образом числами из промежутка [-40; 80].вывести на экран все элементы,которые состоят из одинаковых цифр.
Var a:array[1..18] of integer; i:integer; begin Randomize(); Write('Исходный массив: '); For i:= 1 to 18 do begin a[i]:=-40 + random(121); Write(a[i], ' '); end; Writeln(); Write('Элементы, состоящие из одинаковых цифр: '); For i:= 1 to 18 do if (a[i] mod 10 = a[i] div 10 ) then Write(a[i], ' '); end.
Пусть исходные координаты чертежника (x;y). Смоделируем алгоритм: 0) (x;y) 1) (x-1;y-2) 2) n раз делается одно и то же: первая координата изменяется на a, затем из нее вычитается 1, вторая координата изменяется на b, затем вычитается 2. В результате координаты равны: (x-1+n*(a-1); y-2+n*(b-2)) 3) (x-1+n*(a-1)-20; y-2+n*(b-2)-12) Концом работы программы является попадание в стартовую позицию. То есть x-1+n*(a-1)-20=x => n*(a-1)=21 y-2+n*(b-2)-12=y => n*(b-2)=14 Тогда n нужно искать среди делителей чисел 21 и 14. Точнее ответом будет НОД(21, 14)=7.
Var f: file of integer; i, n, x, t, k, max: integer; s: integer;
begin randomize; write('n='); readln(n);
assign(f, 'numbers.dat'); rewrite(f);
max := -1; for i := 1 to n do begin x := random(4800) + 20; write(f, x); write(x, ' '); if x > max then max := x; end; writeln;
seek(f, 0); k := 0; while not eof(f) do begin read(f, x); t := x; s := 0; while t > 0 do begin s := s + sqr(t mod 10); t := t div 10; end; if x mod s = 0 then k := k + 1; if x > max - 50 then write(x, ' '); end; writeln;
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(18,-40,80); a.Println;
a.Where(t->(t mod 10)=(t div 10)).Println
end.
Пример
34 -22 11 63 -9 43 34 -32 -34 -32 28 17 50 37 80 49 2 29
-22 11