Результатом выполнения алгоритма будет вывод числа k, которое будет равно 5.
Var
n:integer;
c:string;
begin
write('Введите число от 10 до 9999 ->');
readln(n);
Str(n,c);
writeln('Предпоследняя цифра в числе равна ',c[length(c)-1])
end.
Пример работы программы:
Введите число от 10 до 9999 ->1523
Предпоследняя цифра в числе равна 2
Var a:array[1..1000] of integer;
<span>sum,n,i:integer; </span>
<span>begin </span>
<span>sum:=0; </span>
<span>writeln('Введите количество чисел'); </span>
<span>read(n); </span>
<span>writeln('Введите числа'); </span>
<span>for i:=1 to n do begin </span>
<span>read(a[i]); </span>
<span>if (a[i] mod 7=0) and (a[i] mod 10=4)then sum:=sum+a[i]; </span>
<span>end; </span>
<span>writeln('Сумма элементов кратных 7 и оканчиваюшихся на 4 = ',sum); </span>
<span>end.</span>
Решение
var
x, y, z: integer;
begin
readln(x, y, z);
if (x+y+z)>(x*y*z) then write(x+y+z) else write(x*y*z);
end.
Если есть вопросы, пиши.
Информационный объем фильма I определим по формуле:
I=t*k*i*n, где t- время видео(с), k-количество пикселей экрана, i- глубина цвета (бит), n- частота обновления экрана (кадр/с.).
Глубину цвета i определяется из соотношения N=2^i, где N- количество цветов в палитре.
i=㏒₂N= ㏒₂4096= 12 бит
I=(3*60)*(1280*1024)*12*16/(8*1024*1024*1024)= 5,27 Гбайт
Задача 2.
Один кадр содержит 512 Кбайт. За секунду сменяется 24 кадр, значит объем информации за секунду: 512*24= 12288 Кбайт= 12 Мбайт
Умножив это значение на продолжительность фильма получим сколько информации содержит весь фильм
12*(30*60)= 21600 Мбайт= 21,09 Гбайт