Var
i,k,m:integer;
n:longint;
begin
Write('Введите количество чисел: '); Read(k);
m:=0;
Writeln('Вводите числа');
for i:=1 to k do
begin
Read(n);
if n mod 6 = 0 then inc(m)
end;
Writeln('Количество чисел, кратных 6, равно ',m)
end
<em><u>Тестовое решение:</u></em>
Введите количество чисел: 4
Вводите числа
3 18 26 24
Количество чисел, кратных 6, равно 2
Программа:
var x,y: real;
begin
write('x, y: ');
readln(x,y);
if (y>=x*x)and(x<=1)
then writeln('принадлежит')
else writeln('не принадлежит');
end.
Пример:
x, y: 0.5 2
принадлежит
Ответ:
1
Объяснение:
Объяснения не просили, я и не буду писать.
#include <iostream>
#include <iomanip>
using namespace std;
int f1(long int *mas, int N)//f1 для заполнения всех нечётных значений "-777"
{
int i = 0; for (int i = 0; i < N; i++)
if (mas[i] % 2 != 0)//условие, что число нечётное
mas[i] = -777;
return 0;
}
int f2(long int *mas, int N)//f2 для вывода массива
{
int i = 0;
for (int i = 0; i < N; i++)
cout << mas[i]<<" ";//вывод элементов массива
cout << endl;
return 0;
}
void main()
{
setlocale(0, "rus");
int N,k1=0,k2=0,c=0;
cout << "Введите натуральное число N" << endl;
cin >> N;
long int *p = new long int[N];//создаём динамический массив с длиной N
cin >> k1>>k2;//первые два числа
p[0] = k1; p[1] = k2;//записали в первые ячейки
for (int i = 2; i < N; i++)
p[i] = p[i-1] + p[i-2];//заполняем числами Фибоначчи
f1(p, N);//вызов функций
f2(p, N);
system("pause");//пауза в консоли.
}
I=k*i
I - информационный объём;
k - количество символов;
i - количество информации, которое содержит 1 символ;
I=160 (байт);
i=8 (бит) = 1 (байт);
k=I/i=160/1=160 (символов);
Ответ: 160 символов.