Информатика 9 класс. напишите на языке паскаль, и если можно графическими схемами 1.даны объемы и массы двух тел изготовленных из разных материалов. материал какого из тел имеет меньшую плотность? 2.даны 3 вещественных числа. определить сумму тех чисел, которые больше 5.
1) var
v1,v2,m1,m2:integer;
begin
readln(m1,v1,m2,v2);
if (m1/v1)>(m2/m2) then writeln('Первое')
else if (m1/v1)<(m2/m2) then writeln('Второе')
else writeln('Плотности равны')
end.
2) var
a,b,c,s:real;
begin
readln(a,b,c);
s:=0;
if a>5 then s:=s+a;
if b>5 then s:=s+b;
if c>5 then s:=s+c;
writeln(s)
end.