Написать программу которая для 4 знатного числа находит разность между произведением первых 2 чисел и произведением последних двух

2

Ответы и объяснения

2014-03-03T09:55:03+04:00
Var a,r:integer;
begin
readln(a);
r:=(a div 1000)*((a div 100) mod 10) - ((a mod 100) div 10)*(a mod 10);
writeln(r);
end.
2014-03-03T09:56:32+04:00
Uses crt;
var x,i:integer;
m:array[1..4] of integer;
begin
clrscr;
readln(x);
i:=0;
while x<>0 do
begin
i:=i+1;
m[i]:=x mod 10;
x:=x div 10;
end;
writeln(m[3]*m[4]-m[1]*m[2]);
readln();
end.