Var
number : integer;
begin
number := Random(-30000, 30000);
if ((number mod 2 = 0) and (number mod 5 = 0)) then
writeln('X удовлетворяет условию')
else
writeln('X не удовлетворяет условию');
end.
===== PascalABC.NET =====
begin
var a := ArrRandom(19, 27, 74);
a.PrintLines
end.
На сколько я знаю, надо просто все перемножить
Var n, i: integer;
begin
read(n);
for i:=10 to 99 do
if (i mod n=0) and (i mod 10<>n) and (i div 10<>n) then write(i, ' ');
end.
1 INPUT "S = "; S
2 PRINT SQR(S / 3.14)