Сказывание: (x < 5) и не (х < 4)?
вариант
1
для какого из значений числа хистинно высказывание:
1) 5
2) 2
3) 3
4) 4
2
для какого из имён истинно высказывание:
не (первая буква гласная) и не (последняя буква согласная):
1) анна
2) роман
3) олег
4) татьяна
3
для какого из чисел истинно высказывание:
(первая цифра чётная) и не(сумма цифр чётная)?
1) 648
2) 452
3) 357
4) 123
4
переведите двоичное число 1100011 в десятичную систему счисления.
5
переведите число 305 из десятичной системы счисления в двоичную систему счисления. с
единиц содержит полученное число? в ответе укажите одно число — количество единиц.
6
постройте таблицы истинности для логических выражений:
олько
а) a& b. - a& b
б) (а. в) & (-a. b)
const
n=40;
var
a:array [1..n] of integer;
i,k:integer;
begin
Randomize;
k:=0;
Writeln('Исходный массив');
for i:=1 to n do begin a[i]:=random(63)+20; Write(a[i],' ') end;
Writeln; Writeln('Четные элементы, кратные 3');
for i:=1 to n do
if a[i] mod 6=0 then begin Inc(k); Write(a[i],' ') end;
Writeln; Writeln('Отобрано элементов: ',k)
end.
Пример
Исходный массив
43 49 27 45 57 20 54 22 74 79 57 64 30 41 67 58 36 68 79 46 28 74 61 21 80 57 50 24 80 36 27 57 38 38 41 71 50 69 39 48
Четные элементы, кратные 3
54 30 36 24 36 48
Отобрано элементов: 6
2)
const
n=20;
var
a:array [1..n] of integer;
i,imin:integer;
begin
Randomize;
Writeln('Исходный массив');
imin:=1;
for i:=1 to n do begin
a[i]:=random(351)+20;
Write(a[i],' ');
if a[i]<a[imin] then imin:=i
end;
Writeln;
Writeln('Минимальный элемент a[',imin,']=',a[imin])
end.
Пример
Исходный массив
292 54 248 310 181 210 263 284 255 156 177 340 173 39 108 144 270 40 318 155
Минимальный элемент a[14]=39