№1
var vol, a, b, c: real;
beginwrite('Введите сторону а: ');
readln(a);
write('Введите сторону b: ');
readln(b);
write('Введите сторону c: ');
readln(c);
vol := a * b * c;
writeln('Объем прямоугольного параллелепипеда равен ', vol);
<span>end.
№2
const a = 3;
const h = 7;
var S: real;
begin
S := 1 / 2 * a * h;
writeln('Площадь треугольника равна ', S);
<span>end.
№3
var s: string;
begin
s := 'Чему равно 10 : 2?';
writeln(s);
readln();
<span>end.</span></span></span>
Защита вашей личной информации от неправомерного доступа к ней.
Защита производственной тайны (технологии производства и т.д.)
Как-то так) Надеюсь помог.
<em>1)</em><span><em>с информацией</em>
<em>2)</em></span><span><em>драйвером</em>
<em>3)</em></span><span><em>загрузки данных из внешней памяти в оперативную</em>
<em>4)</em></span><span><em>арифметико-логическое устройство</em>
<em>5)</em></span><span><em>контроллер</em>
<em>6)</em></span><span><em>комплекс программ, обеспечивающий поддержку работоспособности программного обеспечения и </em></span>
<span><em>аппаратных средств ПК</em>
<em>7)</em></span><span><em>Дж. фон Нейманом</em>
<em>8)</em></span><span><em>описание принципов работы ЭВМ</em>
<em>9)</em></span><span><em>сеть</em>
<em>10)</em></span><span><em>именованная последовательность данных, размещенных на внешнем носителе</em>
<em>11)</em></span><span><em>адаптер( контроллер)</em>
<em>12)</em></span><span><em>на машинном языке ( в двоичном коде)</em>
<em>12)</em></span><span><em>число двоичных операций, совершаемых процессором в единицу времени</em></span>
Var s,i:integer;
a:array[1..100] of integer;
begin
for i:=1 to 12 do begin
readln(a[i]);
end;
s:=0;
for i:=1 to 12 do begin
s:=s+a[i];
end;
writeln(s);
end.
А в чем проблема собственно?)