ФИГНЮ НЕ ПИСАТЬ! Определить тип переменной после вычисления арифметического выражения x= 4.0
y=x/2-7
float
bool
int
str

Float

Объяснение:

После деления переменная переводится в тип float

Var   i,k,n,p: longint;   f: array[1..10,1..2] of longint; begin   p: =2; i: =1;   f[1,1]: =1; f[1,2]: =1;   write('введите натуральное число не больше 2 147 483 647: ');   read(n);   write(n,' = 1');   while n< > 1 do begin       if (n mod p)=0 then begin           if f[i,1]< > p then           begin inc(i); f[i,1]: =p; f[i,2]: =1 end           else inc(f[i,2]);           n: =n div p       end       else inc(p)   end;   k: =i;   for i: =2 to k do   begin       write(' x ',f[i,1]);       if f[i,2]> 1 then write('^',f[i,2])   end;   writeln end. тестовое решение: введите натуральное число не больше 2 147 483 647: 223092870 223092870 = 1 x 2 x 3 x 5 x 7 x 11 x 13 x 17 x 19 x 23 введите натуральное число не больше 2 147 483 647: 65536 65536 = 1 x 2^16 введите натуральное число не больше 2 147 483 647: 2147483647 2147483647 = 1 x 2147483647