2.
var z,y:integer;
begin
write('Введите z');
readln(z);
if (z>0) and (z<0) then writeln(y=(1/z)+(5/(z-6)))
else
writeln('На ноль делить нельзя!');
readln;
end.
Номер 1 сделан в фотке!:)
Дай лучший ответ мне, плиз оч нужно!)
Если вводится натуральное двузначное число:
var n,s:integer;
begin
write('n = ');
readln(n);
s:=(n div 10)+(n mod 10);
writeln('s = ',s);
if s mod 3 = 0
then writeln('Сумма цифр кратна 3')
else writeln('Сумма цифр не кратна 3');
end.
Пример:
n = 56
s = 11
Сумма цифр не кратна 3
В <span>байте 8 бит, 1 символ кодируется одним байтом, соответственно урок - 4 байт... Но это зависит от кодировки, в разных кодировках символ занимает разное количество байт.</span>
const N=10
var a:array[1..n] of integer;
k,i,p:integer;
begin
for i:=1 to n do begin
a[i]:=random(101);
write(a[i]:3);
end;
writeln;
write('Введите k,p');
read(k,p);
writeln;
if a[p]>a[k] then write(a[p]) else write (a[k]);
end.
Чтобы чересчур не увлекаться арифметикой, введем понятие коэффициента пересчета k - отношения размера нового файла к старому.
Файл был записан в стерео (два канала) вместо моно (1 канал), поэтому k=2/1=2.
Разрешение стало в 4 раза выше (больше), поэтому k=2×4=8.
Частота дискретизации стала меньше в 3.5 раза, k=8/3.5=16/7 (оставим дробь, чтобы точность не терять).
Теперь можно легко найти новый размер файла:
49 Мб × k = 49×16/7 = 112 Мб (вот где дробь пригодилась - 49 разделилось на 7 без остатка).
Ответ: 112 Мб.