Вот решение твоей задачки
ПС программу проверял. она отлично работает!!!!!!!!!!!!!!!!!!!!!!!!!!
Дискретность
(от лат. discretus — разделённый, прерывистый) , прерывность; противопоставляется непрерывности. Например, дискретное изменение какой-либо величины во времени — это изменение, происходящее через определённые промежутки времени (скачками) ; система целых чисел (в противоположность системе действительных чисел) является дискретной . В физике и химии Д. означает зернистость строения материи, её атомистичность.
<span>ДИСКРЕТНОСТЬ [discretion] — прерывность; напр. , изменение экономических показателей во времени всегда имеет прерывный характер, поскольку происходит скачками — от одной даты (года, месяца и т. д. ) к другой. Понятие Д. противопоставляется понятию непрерывности. </span>
Program cos;
const
cos70=0.34202014332;
cos40=0.76604444311;
cos80=0.17364817766;
var
a:real;
begin
a:=cos70*cos40*cos80;
writeln('Ответ: ', a);
readln;
<span>end.</span>
10 пт = 3,5мм
Интервал(полуторный) = 3,5*1,2(120%, это одинарный)*1,5(150%, это рассчёт до полуторного)=6,3 мм
Строка с полуторным интервалом = 3,5+6,3 = 9,8 мм = 0,98 см
х= 6 / 0,98 = 6,12 см
Ответ, в фрагменте 6 строк, т.к. число строк должно являться целым числом.
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<u>№1</u>
begin
var a:=ReadInteger.ToString;
Writeln(a=a.Inverse)
end.
<u>Примеры</u>
2441
False
1991
True
<u>№2</u>
begin
var n:=int64(ReadInteger);
var s:=n.ToString;
var s2:=(n*n).ToString;
if s2.Right(s.Length)=s then Writeln('Афтоморф')
else Writeln('Не автоморф')
end.
<u>Примеры</u>
625
Афтоморф
1020
Не автоморф