Var x1,y1,z1,x2,y2,z2,x3,y3,z3,abx,aby,abz,acx,acy,acz,s,mx,my,mz,c:real;
begin;
readln(x1);
readln(y1);
readln(z1);
readln(x2);
readln(y2);
readln(z2);
readln(x3);
readln(y3);
readln(z3);
abx:=x2-x1;
acx:=x3-x1;
aby:=y2-y1;
acy:=y3-y1;
abz:=z2-z1;
acz:=z3-z1;
mx:=aby*acz-abz*acy;
my:=abz*acx-abx*acz;
mz:=abx*acy-aby*acx;
c:=sqrt(sqr(mx)+sqr(my)+sqr(mz));
s:=0.5*c;
writeln(s);
end.<span>
</span>
Pascal
read(A) {Ввод А}
А:=А*А;
А:=А*А;
write(A) {Вывод А}
#include <iostream>
using namespace std;
int main()
{
int n, m, n1;
int s=0;
int k=0;
cout << "n = ", cin >> n, cout << "\n";
cout << "m = ", cin >> m, cout << "\n";
n1 = n;
while (n1 > 0){
s += n1 % 10;
n1 = n1 / 10;
k++;
}
n1 = n;
for (int i=1; i<=k-m; i++) {
s -= n1 % 10;
n1 = n1 / 10;
}
cout << "s = " << s << "\n";
return 0;
}
Пример:
<span>n = 34568
m = 4
s = 18</span>
Я не особо силен в Pascal, так что вот
program Something;
var N: integer;
begin
writeln('Введите номер квартиры ' );
readln(N);
if N mod 3 = 0 then begin
writeln(N div 3); end
else begin writeln((N div 3)+1 ); end;
end.