4 Мб = 4 * 1024 Кб = 4 * 1024 * 1024 байт
Если продолжительность записи t секунд, объём файла
8 бит * 44 100 Гц * t с = 44 100 t байт
44 100 t = 4 * 1024 * 1024
t = 95 с
Хм...видимо вопрос не правильный, у двузначного числа сумма цифр не может быть однозначным числом, только двузначным!
вот тебе код Pascal:
<span>Код Pascal
<span>1
2
3
4
5
6
7
8
9
<span>var a,b,n,kod:integer;
begin
write('Введите двузначное число - ');
readln(n);
a:=n div 10;
b:=n
mod 10;
if a+b>9 then writeln('Сума цифр двузначное число')
else
writeln('Сума не двузначное число');
end.</span></span></span>
Program qq;
uses crt;
var x1, y1, x2, y2, n1, n2: integer; x, y, L, M, k, b: real; // чтоб было приятно, возьмём координаты начальных точек - целыми числами.
begin
writeln ('Введите координаты первой точки через пробел');
readln(x1, y1);
writeln('Введите координаты второй токи через пробел');
readln(x2, y2);
writeln ('введите через пробел числа N1 и N2');
readln(n1, n2);
l:=n1/n2; //далее производится расчет по формулам, данным в задании
x:=(x1+L*x2)/(1+L);
y:=(y1+L*y2)/(1+L);
writeln ('Координаты искомой точки (',x,';',y,')');
end.<span>
</span>
1)
const n = 5;
var
i, a, count: integer;
begin
for i := 1 to n do begin
readln(a);
if(a mod 2 = 0) then inc(count);
end;
writeln('Кол-во четных чисел: ', count);
end.
2)
var
i, n, count: integer;
begin
readln(n);
for i := 1 to n do begin
write(exp(ln(2)*i), ' ');
if(exp(ln(2)*i) <= 200) then inc(count);
end;
writeln('Кол-во эл. не превышающих 200: ', count);
end.