По принципу, программы бывает очень много, но я выделю самые оптимальные и функциональные: command local 34bet, kool 53.dlt. Они вычисляют произвольно все принципов решений параллелепипеда, угол расположения, моделирования, строительства, и многое другое (+ подсчёты)
<span>1. </span><span>Private Sub CommandButton1_Click() </span><span>
<span>Dim n, s As Single </span>
<span>n = Val(TextBox1.Text) </span>
<span>If (n < 500) Then s = n </span>
<span>If ((n >= 500) And (n <= 1000)) Then s = n
* 0.95 </span>
<span>If ((n > 1000) And (n <= 10000)) Then s =
n * 0.93 </span>
<span>If (n > 10000) Then s = n * 0.91 </span>
<span>MsgBox (s) </span>
<span>End Sub</span></span>
Net(networks) -для сетевых структур. com(commercial) -для комерческих организаций. pro(professionals) -для специолистов определённых професий. org(organizations) -некомерческие организации. edu- высшее учебные заведения признаваемые в качестве таковых Департаментом образования США
Program N1;
var a,c1,c2,c3: integer;
begin
writeln('Введите число');
read(a);
c1:=a mod 10;
c2:=(a div 10) mod 10;
c3:=(a div 100) mod 10;
writeln('Кол-во сотен = ',c3);
writeln('Кол-во десятков = ',c2);
writeln('Кол-во единиц = ',c1);
end.
<span>Сведения о чем-либо, независимо от формы их представления.</span>