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

16.03.2017
Без рубрики

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

  • var a,r:integer;beginreadln(a);r:=(a div 1000)*((a div 100) mod 10) — ((a mod 100) div 10)*(a mod 10);writeln(r);

    end.

  • uses crt;var x,i:integer;m:array[1..4] of integer;beginclrscr;readln(x);i:=0;while x0 dobegini:=i+1;m[i]:=x mod 10;x:=x div 10;end;writeln(m[3]*m[4]-m[1]*m[2]);readln();end.