Var i, n: integer;
begin
readln(n);
for i:=10 to 99 do
if (i mod 10 + i div 10 = n) then
write(i, ' ')
end.
Надо !!!! Иди и делай, а не сиди тут
254000000 = 254 · 10⁶
254 = 0.254 · 1000 = 0.254 · 10³, тогда
254 · 10⁶ = 0.254 · 10⁶ · 10³ = 0.254 · 10⁹
<h2>Ответ</h2>
0.254 · 10⁹
//PascalABC.Net
//(c) NaaMan
var
a : array of integer;
n, i : integer;
p : real;
begin
n := 5;
a := new integer[n];
a := ArrRandom(n, -10, 10);
p := 1;
for i:= 0 to n-1 do
if a[i] < 0 then p *= a[i];
println(a);
writeln('Произведение всех отрицательных равно ', p)
end.
Маска 1 выберет файлы:
<span>chifera.dat
</span>chifera.doc
ferrum.doc
oferta.doc
tocoferol.doc
2:
<span>chifera.doc
deLafer.doc
oferta.doc
tokoferol.doc </span>
3:
<span>chifera.doc
oferta.doc
tokoferol.doc
4:</span><span>
chifera.doc
Значит, </span>по 3 маске будет отобрано 3 файла