ОЧЕНЬ РЕШИТЬ ЧЕРЕЗ PASKAL Даны два числа m и n. Если первое число меньше второго, то вывести х*у, иначе вывести х-у

program z1;

var m,n:integer;

begin

write('m = ');

readln (m);

write('n = ');

readln (n);

if m<n then write (m,' * ',n,' = ',m*n)

else write (m,' - ',n,' = ',m-n)

end.

нет. компьютер может выполнять команды (программы) которые дает ему человек, сам по себе он работать не может, следовательно он не сможет заменить человека.

совершенное число это число равное сумме своих делителей отличных от самого числа

var i, s,j : integer;

begin for i : = 5 to 200 do begin s : = 0; for j : = 1 to i div 2 do if (i mod j = 0) then s : = s + j; if s = i then writeln(i); end; end.