Точно должно работать для PascalABC.Net (версия 3.2, сборка 1341). program Task; var N,i,kol,sum:integer; //По-хорошему, не integer. Потому что мы работаем с натуральными числами, а не отрицательными begin read(N); for i:=1 to N do begin if (i mod 15)=0 then kol:=kol+1; //15 - это НОК(3,5) end; while (N<>0) do begin sum:=sum+N mod 10; N:=N div 10; end; writeln('Количество чисел, делящихся и на 3, и на 5, равно ',kol); writeln('Сумма цифр числа N равна', sum); end.
Ответ: 4 233,05 Мбайт
Геннадий создает мультипликационный ролик, где каждый кадр -отдельно отрисованная картинка. Известно, что каждая картинка имеет разрешение :640*480 пикселей и цветовую палитру в 2^ 16=65536 цветов. Каждый пиксель кодируется с помощью минимально возможного и одинакового для всех пикселей количества бит. Картинки записываются одна за другой без разделителей и заголовков файла. Частота смены кадров в конечном ролике - 24 кадра/сек. В качестве звукового сопровождения выбран формат стерео с глубиной кодирования 10 бит и частотой дискретизации 40 кГц . Найдите размер мультфильма в Мбайтах, если известно, что его Длительность 5 минут. В качестве ответа укажите число-минимальное целое количество Мбайт достаточное для хранения такого файла.
Диограми позволяет лучше концентрироваться
Объяснен