A) программное обеспечение
б) операционная система
в) Приложения
Var a,b,c,d,x: Real;
begin
writeln('Введите a,b,c,d');
readln(a,b,c,d);
x:=a/(b+c)-d;
writeln(x);
end.
<span>примеры систем,имеющих одинаковый состав (одинаковые элементы),но разную функцию -алмаз,графит,алмаз</span>
a:=2*n;
if a mod 3 =0 then write (a, ' '); // кратно3
//Если кратно 5
if a mod 5=0 then write (a, ' '); // кратно 5
//если кратно x
if a mod x =0 then write (a, ' '); // кратно x