Виктор-Богданов
?>

Ть будь ласка зробити вправу 5

Информатика

Ответы

evamining
Пусть исходные координаты чертежника (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.
Viktorovich395
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;             writeln(k); end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Ть будь ласка зробити вправу 5
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Геннадьевна Вета560
Panei
dima-pashkovec
konss2
ЮлияНиколаевна1748
stailwomen31
Nikol27051986
Chikichev456
Igorevich1559
allo22-27
ekb676
yuklimochkina3
orbbsvsupply
balabina-Olesya
sav4ukoxana7149