Написано на Pascal var a:real;i,k:integer; begin writeln('Введите 3 числа'); for i:=1 to 3 do begin read(a); if (a>=2.5) and (a<=5.2) then begin writeln('Число ',a,' входит в интервал'); k:=k+1; end; end; if k=0 then writeln('Таких чисел нет'); end.
Вариант 1 var str:string; A,B,i:integer; begin write('введите ваш текст'); readln(str); for i:=1 to length(str) do begin if (str[i]='А')or (str[i]='а') then a:=a+1; if (str[i]='Б')or (str[i]='б') then B:=b+1; end; if (A+B)=0 then write('нет таких букв') else write ('A= ',A,' Б= ',b); end.
вариант 3 var str:string; A,B,i:integer; begin write('введите ваш текст'); readln(str); i:=1; while i<=length(str) do begin if (str[i]='А')or (str[i]='а') then delete(str,i,1); i:=i+1; end; write(str); end.
Если разрешение файла увеличили в три раза, а частоту дискретизации уменьшили в пять раз, значит объем файла был увеличен в три раза и уменьшен в пять.
Время передачи изменяется пропорционально объему файла, то есть, к примеру, увеличив объем в три раза, время передачи будет увеличено также в три раза.
В пункт А файл был передан за 50 секунд. Определим время передачи в пункт А нового (изменённого) файла.
50 * 3 / 5 = 30 секунд.
То есть если бы мы передавали измененный файл в пункт А, то он был бы передан за 30 сек.
Пропускная между А и Б в шесть раз выше, значит из пункта А в пункт Б файл был передан за
var a:real;i,k:integer;
begin
writeln('Введите 3 числа');
for i:=1 to 3 do
begin
read(a);
if (a>=2.5) and (a<=5.2) then begin
writeln('Число ',a,' входит в интервал');
k:=k+1;
end;
end;
if k=0 then writeln('Таких чисел нет');
end.