1. для какого из значений числа x истинно высказывание: не (x < 6) и (x < 7)? *
варианты:
7
4
6
5
2. для какого из значений числа x истинно высказывание: (x < 8) и не (x < 7)? *
6
9
7
8
3. для какого из значений числа x ложно высказывание: не (x < 7) или (x < 6)? *
7
6
4
5
4. для какого из значений числа x истинно высказывание: не(x > 5) и (x > 4)? *
7
4
6
5
5. для какого из имён истинно высказывание: не (первая буква гласная) и не (последняя буква согласная)? *
анна
семён
иван
марина
6. для какого из значений числа x истинно высказывание: (x < 7) и не (x < 6)? *
4
7
5
6
7. для какого из чисел истинно высказывание: (первая цифра чётная) и не(сумма цифр чётная)? *
352
145
232
468
8. для какого из чисел истинно высказывание: (число < 75) и не (число чётное)? *
48
73
99
85
9. для какого из данных слов истинно высказывание: (ударение на первый слог) и не (количество букв чётное)? *
комар
книга
козел
мышь
#include <iostream>
#include <ctime>
using namespace std;
int main()
{
srand ( time(NULL) );
int arr[10],i,k=0;
//Заполняешь массив
for (i=0;i<sizeof(arr)/sizeof(int);i++)
{
arr[i] = 1+rand()%10;
}
//Перебираешь массив
cout<<"Массив :";
for (int i=0; i<sizeof(arr)/sizeof(int);i++)
{
cout<<" "<<arr[i];
if (arr[i] % 2 == 0)
{
k++;
}
}
cout<<endl<<"Четных :"<<k;
return 0;
}
Объяснение:
много на самом деле. Например самый банальный. Перебираешь массив и проверяешь, если текущий элемент при делении на 2 дает в остатке 0 - значит четное. Значит прибавляешь счетчик (например, переменную a++). Иначе ничего не делаешь. В конце выводишь результат счетчика (a)
#1
begin
var N := ReadInteger();
var sum:real := 1;
for var i := 1 to N do sum *= 1 / i;
sum.println;
end.
#2
begin
var N := ReadInteger();
var sum:real := 1;
var divisor := 1;
while divisor <= N do begin
sum *= 1/divisor;
divisor += 1;
end;
sum.Println;
end.
#3
begin
var N := ReadInteger();
var sum:real := 1;
var divisor := 1;
repeat begin
sum *= 1/divisor;
divisor += 1;
end;
until divisor > N;
sum.Println;
end.
А вообще:
begin
SeqGen(ReadInteger(), p -> 1/p, 1).product.Println;
end.