// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
uses GraphABC; // графическая библиотека
begin
Pen.Color:=clBlue; // выбрать перо синего цвета
Pen.Width:=3; // толщина пера 3 пикселя
DrawCircle(100,120,50); // окружность c центром (100,120) и R=50
Brush.Color:=clPink; // кисть розового цвета
FillCircle(100,120,50) // закрасить окружность
end.
Program n1;
var a,c,b,num: integer;
begin
write('введите число: ');
readln(num);
a:= round(num div 100);
c:=round(num mod 10);
b:=round(((num mod 100)-c)/10);
writeln('сотни: ',a);
writeln('десятки: ',b);
writeln('единицы: ',c);
end.
1. Окно обработки слайдов
2. Файл
3. С текущего или с начала
4. Из вкладок Главная Вставка Резензирование и т.д.
5. Вставка таблиц, картинок, текста, звука видео и т.д.
6. Готовый задний фон
7. Просмотр по времени
8. Для разных путей, или на всякий случай. Либо различные варианты одного слайда
9. Функции подсказок или подробного рассказа
10. Удаление и вырезание
11. См.5
12. Множество форматов, проверка на вирусы и защита паролем
13. Rar, zip, 7z, krz и т.д.
14. В текущую папку, в пусть. Определённого файла или всех.
15. Картинки или маленькие файлы
НЕ УВЕРЕН ЧТО ВСЁ ПРАВИЛЬНО !!
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var x:=ReadReal('x=');
if x<2 then Writeln(9+2*x)
else Writeln(2*x*x+7)
end.
Ответ:
3,4
1 -не подходит, потому что самое больше число в 10 системе - это 255
2- не подходит, потому что при переводе в 2 систему оно будет равно 110100110. Это число содержит 9 знаков, а 9 больше 8