Uses crt; (Подключение внешних файлов)
Var
ves: real;
m: real;
Begin
clrscr;
write('ves=');
read(ves);
m: = ves * 0.65;
writeln ('Масса молекул кислорода', m:2:1, 'кг.');
readkey;
End.
ДЛЯ ОБЕСПЕЧЕНИЯ НОРМАЛЬНОЙ РАБОТЫ КОМПЬЮТЕРА,ЕГО ОБСЛУЖИВАНИЯ И НАСТРОЙКИ.
Система – это целое, состоящее из частей, взаимосвязанных между собой.
Материальная - машина и вселенная
Нематериальная - запись формулы
Смешанная - школа и армия
Смотря на каком диске,а так файл
Const n=15;
var a: array[1..n] of integer;
i:integer;
begin
for i:=1 to n do begin a[i]:=random(10); write(a[i], ' '); end;
writeln;
for i:=1 to n do if a[i]=4 then write('A[',i,']', ' ');
<span>end.</span>