Доброе время суток. Так как у Вас написана программа - она работать не будет.
Чтобы сгенерировать положительные и отрицательные
значения запишите Random(-50,50);
участок программы сортировки я прикрепил в файле
Таблица))))))))))))))))))
var i: integer;
begin
for i := 1000 to 9999 do
if (i div 1000) * (i div 100 mod 10) * (i div 10 mod 10) * (i mod 10) = 40
then writeln(i)
<span>end.</span>
Ответ в задании из информатики (А)
Задача1. (на паскале давно не программировал, поэтому возможны огрехи, саого паскаля под рукой нет.)
Program zadanie1;
var
a,b,c: real;
begin
wtiteln('Vvedite A');
readln(a);
writeln('Vvrdite B');
readln(b);
writeln('Vvedite C');
readln(c);
if ((a>b)and(b>c))or((a<b)and(b<c)) then
begin
a:=a*2;
b:=b*2;
c:=c*2;
end;
else
begin
a:=a*(-1);
b:=b*(-1);
c:=c*(-1);
end;
writeln('a=');
writeln('b=');
writeln('c=');
end.
Решил исходя из того, что в случае если условие не выполняется значение чисел меняется на обратное по знаку.
Задача 2.
program Zadanie2;
var
A,B,C:integer;
begin
writeln('Введите числa A,B и C: ');
readln(A,B,C);
if (C = B) then
writeln('Номер числа, отличного от остальных: ',1)
else
if (A = C) then
writeln('Номер числа, отличного от остальных: ',2)
else
writeln('Номер числа, отличного от остальных: ',3);
end.
<span>
</span>