<em>// PascalABC.NET 3.2, сборка 1483 от 14.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal('x =');
var y:=ReadReal('y =');
Writeln('S=',9*756*Power(y,7)+2*Tan(x))
end.
<u>Пример</u>
x = 2.43
y = -0.65
S=-335.272189184345
Магистрально-модульный принцип построения компьютера
В основу архитектуры современных персональных компьютеров положен магистрально-модульный принцип. Модульный принцип позволяет потребителю самому комплектовать нужную ему конфигурацию компьютера и производить при необходимости ее модернизацию. Модульная организация компьютера опирается на магистральный (шинный) принцип обмена информацией между устройствами.
Магистраль (системная шина) включает в себя три многоразрядные шины: шину данных, шину адреса и шину управления, которые представляют собой многопроводные линии. К магистрали подключаются процессор и оперативная память, а также периферийные устройства ввода, вывода и хранения информации, которые обмениваются информацией на машинном языке (последовательностями нулей и единиц в форме электрических импульсов) .
<span />
var
k, i, n: integer; //k - данное число, n - количество делителей числа k
s: real; //s - сумма делителей числа k
begin
n:= 0; //Обнуляем счетчики
s:= 0;
writeln('Введите целое число');
readln(k); //Вводим число k
for i:= 1 to k do {Проверяем какие числа от 1 до k являются делителями числа k}
if k mod i = 0 then {Если k делится без остатка на i, то прибавляем число i к сумме и прибавляем к счетчику 1}
begin
n:= n + 1;
s:= s + i;
end;
writeln('Среднее арифметическое делителей числа ', k, ' равно: ', s / n : 0 : 5); {Выводим среднее арифметическое делителей с округлением до 5 знаков после запятой}
end.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
<span>uses crt;
var a,b,c,d: real;
procedure Plo (s: string; x,y,z: real);
var sq: real;
begin
if ((y+z-x)>0) and ((x+z-y)>0) and ((x+y-z)>0) then
begin
sq:=0.25*(sqrt((x+y+z)*(y+z-x)*(x+z-y)*(x+y-z)));
writeln('Площадь треугольника со сторонами ',s,'=',sq:0:3);
end else writeln('Треугольник со сторонами ',s,' не существует');
end;
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
Plo ('a,b,c',a,b,c);
Plo ('a,b,d',a,b,d);
Plo ('a,c,d',a,c,d);
Plo ('b,c,d',b,c,d);
end</span>
