Составьте программу стоимости покраски пола в комнате: вводимые данные: стоимость 1 кг краски- длина комнаты- ширина комнаты- известно, что для покраски одного м2 требуется 150 г краски ! лчень нужно! буду )

var

  price, a, b: real;

begin

  write('введите стоимасть 1 кг краски '); readln(price);

  write('введите длину комнаты '); readln(a);

  write('введите ширину комнаты '); readln(b);

  writeln('стоимость покараски пола комнаты составляет ', price * 0.15 * a * b);

end.

// pascalabc.net 3.2, сборка 1353 от 27.11.2016 // внимание! если программа не работает, обновите версию! const   r=8.314; begin   writeln('расчет параметров газового состояния');   writeln('введите обозначение величины, которую хотите найти: ');   writeln('p - давление, m- масса газа, v - объем массы газа,');   writeln('t- термодинамическую температуру, иное - отказ');   var c: =readlnchar;   if pos(c,'ppmmvvtt')=0 then writeln('всего доброго! ')   else begin       var m1,p,v,m,t: real;       m1: =readreal('введите массу одного моля газа (кг/моль): ');       case c of       'p','p': begin           m: =readreal('введите массу газа (кг): ');           v: =readreal('введите объем массы газа (м3): ');           t: =readreal('введите термодинамическую температуру (к); ');           writeln('давление p составляет ',m*r*t/m1/v: 0: 5,' па')           end;       'm','m': begin           p: =readreal('введите давление газа p (па): ');           v: =readreal('введите объем массы газа (м3): ');           t: =readreal('введите термодинамическую температуру (к); ');           writeln('масса газа m составляет ',p*v*m1/r/t: 0: 5,' кг')           end;       'v','v': begin           p: =readreal('введите давление газа p (па): ');           m: =readreal('введите массу газа (кг): ');           t: =readreal('введите термодинамическую температуру (к); ');           writeln('объем массы газа v составляет ',m*r*t/m1/p: 0: 5,' м3')           end;       't','t': begin           p: =readreal('введите давление газа p (па): ');           m: =readreal('введите массу газа (кг): ');           v: =readreal('введите объем массы газа (м3): ');           writeln('термодинамическая температура составляет ',p*v*m1/m/r: 0: 1,' k')           end       end   end end. пример расчет параметров газового состояния введите обозначение величины, которую хотите найти: p - давление, m- масса газа, v - объем массы газа, t- термодинамическую температуру, иное - отказ m введите массу одного моля газа (кг/моль): 28e-3 введите давление газа p (па): 96360 введите объем массы газа (м3): 2e-3 введите термодинамическую температуру (к); 298 масса газа m составляет 0.00218 кг

Принцип программного компьютером состоит в том, что программа состоящая из набора команд, записывается в память компьютера, а компьютер автоматически исполняет эту программу. в основу архитектуры современных персональных компьютеров положен магистрально-модульный принцип. модульная организация компьютера опирается на магистральный (шинный) принцип обмена информацией между устройствами. современные процессоры выполняются в виде микропроцессоров. микропроцессор представляет собой интегральную схему тонкую пластинку кристаллического кремния прямоугольной формы площадью всего несколько квадратных миллиметров, на которой размещены схемы, реализующие все функции процессора. кристалл-пластинка обычно помещается в пластмассовый или керамический плоский корпус и соединяется золотыми проводками с металлическими штырьками, чтобы его можно было присоединить к системной плате компьютера.