Паскаль оператор розгалудження. один диск стоит 10 грн. а блок за 10 дисков 90 грн.как оптимально сделать покупку на суму с> 100 грн. введите с, выведите калличество блоков и отдельных дисков.
Треугольник существует, если сумма длин двух любых его сторон больше длины третьей стороны. Длина стороны может быть определена как расстояние между соответствующими сторонами треугольника:
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016 type Point=record x,y:real end;
procedure GetPoint(c:char;var M:Point); begin Write('Введите координаты точки ',c,': '); Read(M.x,M.y) end;
function Dist(a,b:Point):=sqrt(sqr(b.x-a.x)+sqr(b.y-a.y));
begin var A,B,C:Point; GetPoint('A',A); GetPoint('B',B); GetPoint('C',C); var ab:=Dist(A,B); var bc:=Dist(B,C); var ac:=Dist(A,C); if (ab<bc+ac) and (bc<ab+ac) and (ac<ab+bc) then Writeln('Треугольник существует') else Writeln('Треугольник не существует') end.
Тестовое решение: Введите координаты точки A: -6.9 -5.3 Введите координаты точки B: 0 11.4 Введите координаты точки C: 9 3 Треугольник существует
1.трудно воспринимать текст, написанный в разных стилях. 2. готовый вид документа с определенными полями 3. при оформлении официальных документов (шапка, заголовок, основное содержание)4.шрифт times new roman подходит как и для основного текста, так и для заголовков. заголовки лучше набирать полужирным шрифтом, но можно и курсивом .5. открываем word и находим вкладку верхнего меню «рассылки». переходим в нее и видим, что первая слева группа команд называется «создание» и содержит две кнопки: «конверты» и «наклейки». нас интересуют именно шаблон конверта в word, так то кликаем по этой кнопке.6.при кнопки список в этом редакторе можно составить маркированные и нумерованные списки. такая кнопка есть в процессоре ms word , она находится на вкладке ленты главная . 7. маркерованные это символы и картинки, нумерованные 1,2,3,,а,б,,б,.b.,b,c ,ii,,ix,xv 1-й,2-,и.т.д8. списки которые смешанные, имеют и маркерованные и нумерованные.9.вставка-- рисунок или просто перетащить из папки.вставка --формулавыделить объект-- правая кнопка мыши--гиперссылка10.к огда информация состоит из множества данных, которые модно груаппировать по какому-либо признаку на несколько
const
PRICE_ONE_DISK = 10;
PRICE_TEN_DISK = 90;
EMPTY = 0;
INPUT_MONEY = 'Введите количество денег: ';
OUTPUT_PRICE = 'Купленно: ';
OUTPUT_ONE_DISK = ' - по одному диску';
OUTPUT_TEN_DISK = ' - по десять дисков';
OUTPUT_MANEY = 'Осталось денег: ';
CHAR_TABS = Chr(9);
var
sumMoney : integer;
countOneDisk : integer := 0;
countTenDisk : integer := 0;
begin
write(INPUT_MONEY);
read(sumMoney);
while((sumMoney - PRICE_TEN_DISK) >= EMPTY) do
begin
inc(countTenDisk);
sumMoney := sumMoney - PRICE_TEN_DISK;
end;
while((sumMoney - PRICE_ONE_DISK) >= EMPTY) do
begin
inc(countOneDisk);
sumMoney := sumMoney - PRICE_ONE_DISK;
end;
writeln(OUTPUT_PRICE);
writeln(CHAR_TABS, countTenDisk, OUTPUT_TEN_DISK);
writeln(CHAR_TABS, countOneDisk, OUTPUT_ONE_DISK);
writeln(OUTPUT_MANEY, sumMoney);
end.