Var a:real;
begin
write('введите число: ');read(a);
writeln(int(a),' тенге ', round(100*frac(a)),' тиыны');
<span>end.</span>
Наглядное представление это, показ чего либо очень точно и понятно
Конте́кстное меню́ (англ. context menu) в графическом интерфейсе пользователя — меню, набор команд в котором зависит от выбранного, или находящегося под курсором в момент вызова объекта, а также состояния рабочей среды и программы, в которой этот объект находится — то, что в совокупности представляет собой контекст для этого меню. Вызов контекстного меню осуществляется как правило по нажатию «контекстной» (правой для правшей) кнопки мыши, специальной клавиши ( Menu ), или сочетания ( ⇧ Shift + F10 в Windows, или нажатие кнопки мыши при нажатой клавише Control в MacOS) на клавиатуре, а иногда — особыми жестами указывающего устройства (например — нажатием и удержанием).
<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<em>Цикл for</em>
begin
var p:=1.0;
for var i:=1 to 100 do p*=(1+Sin(i/10));
Writeln(p)
end.
<em>Результат</em>
<u>1.72984094681</u>772<u>E-14</u>
<em>Цикл repeat</em>
begin
var (p,i):=(1.0,0.1);
repeat
p*=(1+Sin(i));
i+=0.1
until i>10;
Writeln(p)
end.
<em>Результат</em>
<u>1.72984094681</u>773<u>E-14</u>
Контрольное решение с точностью 20 цифр приведено во вложении. В соответствии с ним верные цифры в результатах <u>подчеркнуты</u>.
Function tet2n(n As Integer) As Integer
Dim i As Integer
i = 8
Do While i * (i + 1) * (i + 2) / 6 > n
i = i - 1
Loop
tet2n = i
End Function
Excel VBA