Задачка по информатике по блок-схеме... можно код на паскале или хотя бы скажите ответ

Question

Задачка по информатике по блок-схеме... можно код на паскале или хотя бы скажите ответ

Экономика

Гость

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

Accepted Answer

1138.688 Program my;uses crt;vara,b : real;begina := 1024;b := a;while (a>=10) do begina := a/10;b := b+a;end;if (a=1) then writeln(b) else b := b + a; writeln(b);end.