Var
a:array[1..1000]of integer;
i,n,m,k:integer;
begin
m:=0;
k:=0;
Writeln('введите числа:');
For i:=1 to 100 do
Readln (a[i]);
for i:=1 to 100 do
begin
if(a[i]mod 7=0) then
k:=k+1;
end;
writeln (k);
<span>end.
Вот держи выводит количество цифр
</span>
Исходный файл - 15 Мбайт
Его перезаписали в формате стерео 2 канала, значит 15 Мбайт увеличивается в 2 раза = 30 Мбайт.
Потом его оцифровали с разрешением в 3 раза выше исходного, значит увеличиваем еще в 3 раза 30×3=90 Мбайт
Частота дискретизации была меньше в 2 раза, чем у исходного, значит делим на 2. 90÷2=45 <span>Мбайт
Сжатия не проводилось, поэтому ответ: </span><span>45 </span>Мбайт
Можно всё записать в один пример:
Двойки сокращаются, остаётся 15*3 = 45 Мбайт
Истинна
Ложь
Ложь
Истинно
Истинна
Ложь
Истинна
Истинна
Ложь
Истинна
Ложь
Ложь
Ложь
Ложь
Истинна
Истинна
Ложь
Var n,i:integer;
sum:real;
begin
writeln('Введите N= ');
read(n);
sum:=1;
for i:=1 to n do
sum:=sum+1/i;
writeln('Сумма равна ',sum);
end.<span>
</span>
// Если захочешь перенести массив из глобальных переменных, не забудь обнулить его
#include <bits/stdc++.h>
using namespace std;
bool a[10];
int main()
{
string s;
cin >> s;
for (int i = 0 ; i < s.length(); ++i)
if (isdigit(s[i]))
{
int ind = s[i]-'0';
a[ind] = true;
}
bool fl = false;
for (int i = 0; i < 10; ++i)
if (a[i])
{
fl = true;
cout << i << ' ';
}
if (!fl)
cout << "NO";
}