Var
x, y, s: real;
begin
readln(x);
readln(y);
s := abs(x) - abs(y) / 1 + abs (x*y);
writeln(s);
<span>end.</span>
Ответ:
1. 60
2. 65
3.
var i,a,s:Integer;
begin
for i:=1 to 10 do
begin
ReadLn(a);
if a<0 then s:=s+a
end;
Write ('Сумма отрицательных чисел равна ',s)
end.
4.
var i,a,s:Integer;
begin
for i:=1 to 20 do
begin
ReadLn(a);
if (a>0) and (a mod 2 = 0) then s:=s+a
end;
Write ('Сумма положительных чётных чисел равна ',s)
end.
Объяснение:
1.
s=0 n=76
пока s<71 s=s+10 n=n-2
0<71 (да) s=10 n=74
10<71 (да) s=20 n=72
20<71 (да) s=30 n=70
30<71 (да) s=40 n=68
40<71 (да) s=50 n=66
50<71 (да) s=60 n=64
60<71 (да) s=70 n=62
70<71 (да) s=80 n=60
80<71 (нет) s=80 n=60
2.
s=1 k=0
пока k<13 s=s+2*k k=k+4
0<13 (да) s=1 k=4
4<13 (да) s=9 k=8
8<13 (да) s=25 k=12
12<13 (да) s=49 k=16
16<13 (нет) s=49 k=16
s+k=49+16=65
Данное решение основано на простом алгоритме деления данного числа на основание системы Ограничения для чисел (не более 9-тизначного числа)
Данное число и основание системы вводим в указанные ячейки
Недостаток программы: как убрать не значащие нули в ответе?
1)
[16, 32, 300, 2]
Формула нахождения объема закодированного звука
A = D * i * t * c (D - частота дискретизации, i - глубина бит/разрядность, t - время, c - кол-во каналов)
Приводим единицы измерения
D = 16 кГц = 16000 Гц
t = 300 c
A = D * i * t * c = 16000 * 32 * 300 * 2 = 307200000.0 бит = 37500.0 Kбайт = 36.62109375 Мбайт
2)
[16, 32, 240, 1]
Приводим единицы измерения
D = 16 кГц = 16000 Гц
t = 240 c
A = D * i * t * c = 16000 * 32 * 240 * 1 = 122880000.0 бит = 15000.0 Kбайт = 14.6484375 Мбайт
