// PascalABC.NET 3.1, сборка 1219 от 16.04.2016 begin var n:=ReadInteger('Введите четырехзначное число'); Writeln('В числе'); Writeln(n div 1000,' - тысяч'); Writeln((n div 100) mod 10,' - сотен'); Writeln((n mod 100) div 10,' - десятков'); Writeln(n mod 10,' - единиц') end.
Тестовое решение: Введите четырехзначное число 4072 В числе 4 - тысяч 0 - сотен 7 - десятков 2 - единиц
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016 begin var n:=ReadInteger('Введите трехзначное число'); var s:=n div 100; var d:=(n div 10) mod 10; var e:=n mod 10; Writeln('Sum=',s+d+e); Writeln(e,d,s); Writeln('В числе'); Writeln(e,' - сотен'); Writeln(d,' - десятков'); Writeln(s,' - единиц') end.
Тестовое решение: Введите трехзначное число 492 Sum=15 294 В числе 2 - сотен 9 - десятков 4 - единиц
Tarakanova_pavel
13.01.2021
1. Что такое слайд? Из чего состоит?
Слайд - фрагмент презентации, в пределах которого производится работа над объектами.
В составе слайда могут присутствовать: Заголовок и подзаголовок; Графические изображения (рисунки); Таблицы; Диаграммы; Тексты; Звуки; Маркированные/нумерованные списки; Фон; Колонтитул; Номер слайда; Дата; Различные внешние объекты.
2. Как я могу создать новую презентацию?
Нажать на кнопку "Office" в верхнем левом углу, выбрать "Создать", выбрать "Новая презентация" или какой-нибудь шаблон.
Также создать новую презентацию можно сочетанием клавиш "Ctrl + N".
3. Как изменить порядок слайдов в презентации?
Зажать нужный слайд левой кнопкой мыши, перетащить в нужное место.
Вырезать слайд (Правая кнопка мыши, "Вырезать" или сочетание клавиш "Ctrl + X"), левой кнопкой мыши выбрать место и вставить слайд (Правая кнопка мыши, "Вставить" или сочетанием клавиш "Ctrl + V")
4. Как добавить картинку на слайд?
"Вставка", "Рисунок".
5. Как настроить анимацию объектов на слайде?
"Анимация", "Анимация". Или "Анимация", "Настройка анимации", выделяешь объект, "Добавить эффект". При желании можно изменить момент когда объект должен появиться, его направление и скорость.
6. Как добавить диаграмму в слайд?
"Вставка", "Диаграмма", выбираешь тип диаграммы. При добавлении диаграммы появится окно программы "Excel", где можно ввести данные и по ним будет построена диаграмма в презентации.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Перевести десятичные числа0, 256 0, 65; 0, 1875; 456, 45;35, 25 в двоичную, восьмеричную, шестнадцатеричную (переводим до трёх знаков после запятой)
begin
var n:=ReadInteger('Введите четырехзначное число');
Writeln('В числе');
Writeln(n div 1000,' - тысяч');
Writeln((n div 100) mod 10,' - сотен');
Writeln((n mod 100) div 10,' - десятков');
Writeln(n mod 10,' - единиц')
end.
Тестовое решение:
Введите четырехзначное число 4072
В числе
4 - тысяч
0 - сотен
7 - десятков
2 - единиц
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var n:=ReadInteger('Введите трехзначное число');
var s:=n div 100;
var d:=(n div 10) mod 10;
var e:=n mod 10;
Writeln('Sum=',s+d+e);
Writeln(e,d,s);
Writeln('В числе');
Writeln(e,' - сотен');
Writeln(d,' - десятков');
Writeln(s,' - единиц')
end.
Тестовое решение:
Введите трехзначное число 492
Sum=15
294
В числе
2 - сотен
9 - десятков
4 - единиц