Uses crt; (Подключение внешних файлов)
Var
  ves: real;
  m: real;
Begin
  clrscr;
  write('ves=');
  read(ves);
  m: = ves * 0.65;
  writeln ('Масса молекул кислорода', m:2:1, 'кг.');
  readkey;
End.

0 0

4 года назад

Что появится на экране в результате выполнения следующего фрагмента.Срочно, пожалуйста.Нужно выполнить два задания

Дуняша ЛУ [52]

Кто там писал, если первое (3) задание сделал, можешь отправить?

0 0

4 года назад

Решите номер 1.Есть вложение.

m-m [180]

Проходим все возможные пути:
A-B-E-F: 4+6+5=15
A-B-D-E-F: 4+3+2+5=14
A-B-C-E-F: 4+6+4+5=19
Кратчайший путь равен 14 - ответ 3)

0 0

3 года назад

Пожалуйста помогите с решением!!!!1.Написать программу, которая запрашивает число с клавиатуры и сообщает его квадрат, затем спр

alnc

Второе
var A: array [1..10] of integer;
I,S: integer;
min:=a[1];
beginfor I:=1 to 10 do
begin
a[i]:=random(10);
S:=S+A[I];
write(a[i],' ');
end;
for i:=2 to 10 do
begin
if min>a[i] then
min:=a[i];
end;
writeln;
writeln ('сумма=',S);
writeln ('минимальное=',min);
<span>end.</span>

0 0

4 года назад