Var n,k,s:integer;
begin
Writeln ('вводи числа, по окончанию введи 9999');
while n<9999 do
begin
readln (n);
if (n>0) and (n mod 10=6) then
begin
inc(k);
s:=s+n;
end;
end;
writeln ('кол-во=',k);
writeln ('сумма=',s);
end.
DECLARE FUNCTION f# (x AS DOUBLE)
DECLARE FUNCTION Integ# (a AS DOUBLE, b AS DOUBLE, n AS LONG)
'Main program
DIM eps AS DOUBLE, n AS LONG, s AS DOUBLE, s1 AS DOUBLE
DIM a AS DOUBLE, b AS DOUBLE
CLS
a = 0: b = 1: eps = .001
n = 100
s = Integ#(a, b, 10#)
DO
s1 = s
s = Integ#(a, b, n)
n = n * 2
LOOP UNTIL ABS(s - s1) <= eps
PRINT s
END
FUNCTION f# (x AS DOUBLE)
f# = x ^ 3 * EXP(x ^ 2)
END FUNCTION
FUNCTION Integ# (a AS DOUBLE, b AS DOUBLE, n AS LONG)
DIM h AS DOUBLE, xb AS DOUBLE, x AS DOUBLE
DIM s AS DOUBLE, i AS INTEGER
h = (b - a) / n
s = 0
xb = a
FOR i = 0 TO n - 1
x = xb + i * h
s = s + f(x) * h
NEXT i
Integ# = s
END FUNCTION
<em><u>Результат выполнения программы:</u></em>
.4991509793572241
<em>Погрешность не превышает 0.001 при контрольном значении, равном 0.5</em>
Аааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааа 1-2 гига
18.
A. Является.
B. Является(однострочный)
C. Не является.
D. Является.
E. Не является.
Ответ: Вообще, если читать задание, то, наверное, требуется выбрать один вариант ответа, но здесь их 2: С, E
19.
Точка с запятой.
Ответ: A
Var
k: integer;
a, s: real;
begin
write('Начальная стоимость: ');
readln(a);
write('Число проданных газет: ');
readln(k);
if k <= 50 then s := k * a
else
begin
s := 50 * a;
s := s + (k - 50) * a * 1.2;
end;
writeln('Выручка составила ', s, ' руб.');
end.