Var
i,k,n1,n2:integer;
begin
n1:=0; n2:=0;
Write('Введите 5 натуральных чисел: ');
for i:=1 to 5 do begin
Read(k);
if k mod 2<>0 then Inc(n1);
if (k mod 3=0) and (k mod 5<>0) then Inc(n2)
end;
Writeln('Нечетных- ',n1,', кратных 3 и не кратных 5- ',n2)
end.
<u>Пример</u>
Введите 5 натуральных чисел: 11 8 33 15 27
Нечетных- 4, кратных 3 и не кратных 5- 2
Для кодирования 124 номеров необходимо 66 бит
Микрофон-запись звуковых данных
Сканер-представление графической информации в электронном виде
Монитор-вывод графической информации
Мышь-преобразование движения в управляющий сигнал
Наушники-вывод звуковой информации
Процессор-обработка данных
Принтер-вывод графической информации
Var a,b:real;
begin
read(a,b);
swap(a,b);
write(a,b);
end.
#include<iostream>#include <stdlib.h>using namespace std;int main(){int a[10], i = 9, n=0;for (i; i >0; i--){ a[i] = rand () % 10 + 1; if ( a[i] % 2 == 0){ n++; } cout << a[i] << endl;}cout << "n" << "=" << n;
}