tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
перевести код с Pascal в
перевести код с Pascal в Python. Очень нужно
var n,m,d:longint; c:byte;
begin
read(n);
m:=0; d:=1;
repeat
c:=n mod 10;
if c=1 then c:=2;
m:=m+c*d; d:=d*10;
n:=n div 10;
until n=0;
writeln(m);
end.
anod7936
1 20.05.2020 18:35
0
Ответы
Показать ответы (3)
Другие вопросы по теме Информатика
anyagabova
02.03.2021 12:30
№1-тапсырма. a, b, c және d бүтін сандары берілген. А және b сандарының қосындысы мен c және d сандары айырмасының соңғы цифрларының көбейтіндісін табатын программа...
FCRuslanZENIT1
02.03.2021 12:29
Запишите следующие арифметические на...
Deelay
22.07.2019 10:20
Определите поля для каждой из 2 таблиц и определите поле и тип связи по которым они будут связаны. названия таблиц: магазин - товары страны - столицы исполнитель -...
Denze111
23.01.2022 00:59
Установи соответствие между операторами присваивания и значениями переменной Z. Количество соединений: 4 1. X=Y=Z=-8 2. X,Y=-5,83. X=Y=5Z=X-Y4.X,Y=25,0.5Z=X-Y1. множественное...
milana372
23.01.2022 00:57
Назначение и состав системы программирования. Назначение и классификация языков программирования описания синтаксиса языков программирования. РБНФ. Пример. описания...
23.01.2022 00:41
Выбери эквивалентный оператор последовательности операторов в программном коде x=5 y=6 z=-7...
usan2005
23.01.2022 00:39
На бесконечном поле имеется горизонтальная стена.длина стены не известна . От правого конца стены вверх отходит вертикальная стена также нензвест- ной длины. Робот...
1Радуга1
14.09.2019 16:50
Написать алгоритм который находит сумму десяти чисел введённых пользователем с клавиатуры . написать в виде блок-схемы...
2ewgv423t
27.10.2020 07:39
3. Определите вид топологии. [1]...
maxshcherba5p08v6b
27.10.2020 07:38
Program p10; var a, b: integer; begin readln(a); readln(b); if (a 8) or (b 8) then writeln(‘ДА’) else writeln(‘НЕТ’) end. Было проведено 9 запусков программы, при которых...
Популярные вопросы
Объясните, , как правильно раскрыть скобки: 1. i fly (usually) to...
3
Как найти главные члены предложения в паутинки с паучками в середине,и...
2
Спишіть речення,вставляючи пропущені закінчення прикметників та...
1
Где были созданы фашистские партии? что послужило причинами из создания?...
1
Составь решением которой является выражение записанное зацем: x=20;...
3
Назовите события 1917-1921 года 18,23,25,26,27 февраля...
1
До виділених іменників - насіннячко, земля, кульбабка - доберіть...
3
Составьте шесть предложений с данными словосочетаниями. определите...
1
Почему бериллия нет в таблице растворимости и как мне посмотреть...
2
Понятие и значение индустриализации...
1