Program gt;
var i,p:int64;
begin
p:=1;
for i:=1 to 1000 do
begin
if(i mod 2=1)and(i mod 13=0)then p:=p*i;
end;
writeln(p);
end.
79. Изобразите на схеме элементы, образующие и наВ = {н, о, ч, к, а), с = {р, е, к, ај, D = {у, ч, е, н, и, к}. Запишите все эле
Андрей 2011 [102]
Ответ:
Объяснение:
1{н, о, ч, к, а, р, е}
2) {к, а}
3) {н, о, ч, к, а, р, е, у, и}
4) {к, а}
5) {н, ч, к, е}
6) {у, ч, е, н, и, к}
7) {н, о, ч, к, а, е}
8) {к, а, ч, н}
Var a,b: Integer;
begin
writeln('Введите a и b');
readln(a,b);
writeln('S=a*b=',a*b);
writeln('P=2*(a+b)=',2*(a+b));
end.
Исходный файл - 15 Мбайт
Его перезаписали в формате стерео 2 канала, значит 15 Мбайт увеличивается в 2 раза = 30 Мбайт.
Потом его оцифровали с разрешением в 3 раза выше исходного, значит увеличиваем еще в 3 раза 30×3=90 Мбайт
Частота дискретизации была меньше в 2 раза, чем у исходного, значит делим на 2. 90÷2=45 <span>Мбайт
Сжатия не проводилось, поэтому ответ: </span><span>45 </span>Мбайт
Можно всё записать в один пример:
Двойки сокращаются, остаётся 15*3 = 45 Мбайт
Форматированный код на C# и демонстрация работы на скриншотах.
Код текстом ниже.
using System;
using System.Linq;
namespace task29989793
{
class Program
{
static void Main()
{
Console.Write("Enter number: ");
var number = Console.ReadLine().Select(i => int.Parse(i.ToString()));
Console.WriteLine($"Count of odd digits: {number.Count(i => i % 2 == 1)}");
Console.WriteLine($"Count of even digits: {number.Count(i => i % 2 == 0)}");
}
}
}