Листинг 1:
program sum_cubes;
(c) NaaMan}
function func(x: real): real;
begin
Result := 3*x*x + 3*sin(x);
end;
const
start = 0.0;
finish = 5.0;
step = 0.7;
var
sum, i: real;
n: integer;
begin
sum := 0;
n := 0;
i := start;
while i <= finish do begin
var y: real;
y := func(i);
writeln(i,' ', y:8:3);
if y > 0 then begin
sum := sum + power(y,3);
n := n + 1;
end;
i := i + step;
end;
writeln( 'Sum = ', sum:10:3, ' Count = ', n);
end.
Листинг 2:
program arr_sum_cou;
(c) NaaMan}
var
sum, n: integer;
begin
sum := 0;
n := 0;
var a := ArrRandomInteger(100, -40, 40);
foreach var i in a do
if i < 0 then
sum := sum + i
else
n := n + 1;
writeln('Array: ', a);
writeln( 'Sum = ', sum, ' Count = ', n);
end.
Листинг 3:
program arr_sum_cou;
(c) NaaMan}
var F: boolean;
begin
F := True;
var A := ArrRandomInteger(10, 1, 10);
var B := ArrRandomInteger(10, 1, 10);
writeln(A);
writeln(B);
for var i := 0 to 9 do
if A[i] = B[i] then begin
writeln('Item = ', i, ' Value = ', A[i]);
F := False;
end;
if F then
writeln('Совпадений нет.');
end.
Объяснение:
1-2
2-2
3-3
4-1
5-3
6-3
7-3
8-2
9-2
10-1)текстовый файл, содержащий электронный адрес получателя и текст письма;
2)имя пользователя@имя сервера;
3)особенность электронной почты состоит в том, что для работы с ней используются два прикладных протокола: один – для отправки исходящих сообщений, а другой – для получения входящей корреспонденции;
4)ящик, предназначенный для сбора или доставки электронных писем, почтовых карточек и др. ;
5)это массовая рассылка сообщений пользователям, не дававшим согласия на их получение;
6)скорость, простота, дешевизна, возможность массовой пересылки;
7)это набор правил, которые правильно передавать информацию на почтовый сервер или с него.
Объяснение:
металлический шарик подвешенный На шелковой нити наэлектризованы положительным зарядом как зарядится расположено на диэлектрической подставке пустотелая сфера если металлический шарик
а) коснется его внешней стенки(d)?
б) будет висеть внутри сферы не касаясь его стенок (е)?