Var a,b:real:
begin
read(a);
b:=a*0.91;
writeln();
write(&a,'m=',&b,'yards');
end.
Var a, b, c, v, s:integer;
begin
read(a, b, c);
writeln('V = ', a*b*c);
writeln('S = ', 2*(a*b+b*c+a*c));
end.
Дано:
v= 32768 бит/с.
t= 48c.
i= 2 байт
k= 128
Найти: n
Определим информационный объем переданного файла I₁=v*t, где v - скорость передачи, t- время передачи
I₁= 32768*48= 1572864 бит
1572864 бит/8= 196608 байт
Определим информационный объем одной страницы: I₂=i*k, где i - количество байт на один символ, k- количество символов на одной странице
I₂=2*128*=256 байт
Тогда разделив общий объем файла на объем одной страницы получим искомое количество страниц:
n=I₁/I₂= 196608/256= 768
Ответ: 768 страниц.
Смещение вне цикла составляет (-12, 21), т.е. смещение внутри цикла = (12, -21)
Числа 11 и 5 не представляют никакого интереса, т.к. нам не требуется искать значения a и b, важно только то, что мы можем менять сдвиг в цикле как угодно, меняя только эти переменные.
Максимальное N = НОД(12, 21) = 3
Т.е. чертежник сдвигается на (12, -21), три раза выполнив операцию сдвига на (4, -7)
<span>k:=pos(' ',s); - позиция пробела
</span><span>t:=Copy(s,k+1,3); - копирование с 6 символа + 3(как-то так)
</span>Ответ: зим<span />