Ответы на вопрос:
Program z1; var n,sum: integer; begin write('введите кол-во дисков: '); readln(n); sum: = n div 100 * 100 + n mod 100 div 20 * 30 + n mod 10 * 2 ; writeln('сумма: ', sum); end.
Популярно: Информатика
-
Задание № 2. Создайте Таблицу. Введите исходные данные и выполните...
stic2016Аринааа24.05.2022 14:28 -
Составьте программу, определяющую, является ли число a делителем...
DorzayS13.02.2020 06:36 -
Var x1,y1,a1,b1,x2,y2,a2,b2,x3,y3:integer; begin writeln( Введите...
Julia1098801.06.2022 10:21 -
Запишите в развёрнутом виде следующие числа: а)А в 10 степени=231,1...
valeria20456721.08.2021 03:27 -
Что такое сноски? для чего их используют? Напишите определение на...
Маргарин1112.01.2020 07:26 -
2. для чего нужен контейнер title в разделе head? 3. для чего нужен...
Julia7770701.02.2021 08:42 -
Как переводить число в степень двойки? ? например 120 или 600 и т.п....
Messi144411.05.2023 03:46 -
Катет прямоугольного треугольника равен 7 см, а противолежащий угол...
Sam22322513.02.2023 09:30 -
Что произошло с собакой по имени муму? руслан 5в класс...
IvanBur200610.12.2022 15:15 -
Нужно написать письмо опорно-двигательной системе....
пипл431.01.2023 23:04