Var
sum, a,b,c:real;
begin
Readln(a);writeln(a/1000);
read(b);Writeln(b/10000);
end.
Program p_2;
var
a : array[1..10,1..10] of integer; // двумерный массив.
i, j, p, o : integer;
begin
// Тут считаем,что массив уже получен
for i := 1 to 10 do
begin
p := 0;
o := 0;
for j := 1 to 10 do
if (a[i,j] > 0)
then p := p + 1
else o := o + 1;
if(o = p) then
for j := 1 to 10 do
write(a[i,j], ' ');
end;
end.
Program LeastCommonMult;
var
m, n, prod: word;
begin
readln(m, n);
prod := m * n;
while m <> n do begin
if m > n then begin
m := m - n
end
else begin
n := n - m
end
end;
writeln(prod div m)
end.
Ну, конечно, можно.
50 * 60 = 3000 байт
3000 * 120 = 360000 байт
360000 : 1024 = 351,5625 Кбайт
А на дискетке - в 4 раза больше места.