№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>
По данному запросу найдутся абсолютно все сайты (знак | в запросе - или).
350+500+200−5−5−(20-5)−(10-5)−(50-5)=975
Объяснение: при сложении 350+500+200 мы получаем сумму всех 3 кругов по отдельности. При этом, при подсчете общего количества сайтов, в данной сумме значение центрального сегмента у нас утроено, а тех трех сегментов с которыми центральный имеет общую сторону, удвоено. Поэтому мы 2 раза отнимаем 5 и по 1 разу отнимаем разность 50 и 5, 20 и 5, 10 и 5.
Ответ: 975
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк в матрице:');
var m:=9;
Writeln('*** Исходная матрица ***');
var a:=new real[n,m];
Randomize;
for var i:=0 to n-1 do
for var j:=0 to m-1 do
a[i,j]:=Random(-100,100)/10;
a.Println(5,1); Writeln(5*a.ColCount*'-');
var col:=1;
Write('Средние арифметические: ');
while col<=m-1 do begin
Write(a.Col(col).Average:0:2,' ');
col+=2
end;
Writeln
end.
<u>Пример</u>
Количество строк в матрице: 6
*** Исходная матрица ***
9.6 -4.5 0.2 -7.6 5.4 -4.8 -0.1 -8.6 9.3
-3.6 -3.3 -4.6 -4.6 -2.0 -7.3 5.4 5.1 -9.3
3.2 1.0 -8.1 -5.9 -6.1 9.8 -0.7 -2.5 -1.5
-3.0-10.0 -7.4 -6.7 9.6 -2.1 9.3 -4.6 -3.8
9.7 -7.8 3.1 0.9 -3.0 5.4 9.7 2.9 -9.6
-3.3 4.4 -1.7 -5.0 8.5 0.9 -3.9 -3.4 1.3
---------------------------------------------
Средние арифметические: -3.37 -4.82 0.32 -1.85
<span>Вопрос № 7:
</span><span>Предоставление пользователю необходимых ему информационных продуктов называется…
Ответ:
</span><span>информационной услугой
</span>
<span>Вопрос № 8:
</span>Что не является информационной услугой?
Ответ:
<span> ремонт электричества в квартире
</span>
<span>Вопрос № 10:
</span><span>Организации и частные лица, обращающиеся к информационным системам за получением информации называются…
Ответ:
</span><span> пользователями информации</span>
