program G1;
var
a:real;
begin
writeln('Сколько килограмм?');
readln(a);
a:=a*1000;
writeln('Это ',a,' грамм')
end.
Неформальный исполнитель - человек => ученик
Program Mas;
Var a:array[1..100] of integer;
i, n: integer;
Begin randomize;
writeln('Введите размерность массива',n);
readln(n);
for i:=1 to n do
a[i]:=random(45)-1; readln;
for i:=1 to n do
begin if a[i]>15 then
write(' ',a[i]);
end;
readln;
End.
1101111011,01(2)=1573.2(8)=37B.4(16)
11010,101(2)=32.5(8)=1A.A(16)
1011010011,01(2)=1323.2(8)=2D3.4(16)
101000010,0111(2) =502.34(8)=142.7(16)