Регистрация
bangorucc
28.04.2021 20:28
Информатика
Есть ответ 👍

3. выполни программу для робика ⟶⟶⟶↓↓↓⟵⟵⟵ ⟶⟶⟶↓↓↓⟵⟵⟵ по клеткам как это будет?

211
239
Посмотреть ответы 1

Ответы на вопрос:

vika2082
vika2082
4,6(85 оценок)
Var c,n,k: int64; t: boolean; begin   read(n);   c: =n;   t: =true;   while (n< > 0) and (t) do      begin  k: =n mod 10;   if k< > 0 then        if c mod k< > 0 then t: =false;       n: =n div 10;       end;   if t=true then writeln('t') else  writeln('p'); end.

Популярно: Информатика