Контрольная работа «основы логики»
вариант 1
1. постройте таблицы истинности для следующих логических выражений:
авvc b) -av(brc)
2. для какого из указанных значений числа x истинно выражение (х< 3) & (( х < 2) v (x >
х=1 , b) х = 2, c)х = 3, d)х = 4.
3.даны три числа : а= 100102, b= 17 10, c= 22 10 . переведите числа в двоичную систему счисления и
выполните поразрядно логические операции - avвас. ответ дайте в десятичной системе счисления.
4. для какого из имён истинно высказывание: не(первая буква гласная) и
не(последняя буква согласная)?
1) емеля 2) иван 3) михаил 4) никита.
5.учитель проверил контрольные работы трех учеников — алексеева, васильева и сергеева, но после
проверки забыл принести их в класс. ученикам он сказал: «все вы справились с работой, причем все
получили разные оценки от «3» до «5». у сергеева не «5». у васильева не «4». у алексеева, по-
моему, «4». впоследствии оказалось, что учитель ошибся и одному ученику верно назвал его оценку.
а другим двум — неверно. кто какую оценку получил?
2+4+6+...+198+200.
1. Самый короткий вариант
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
Writeln(Range(2,200,2).Sum)
end.
Результат:
10100
2. Более длинный и более "школьный" вариант
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var s:=0;
var i:=2;
while i<=200 do begin
s:=s+i;
i:=i+2
end;
Writeln(s)
end.
3. Совсем "тупой школьный" вариант (решение "в лоб")
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
var
i,s:integer;
begin
s:=0;
for i:=1 to 200 do
if i mod 2 =0 then s:=s+i;
Writeln(s)
end.
4. Улучшенный "школьный" вариант
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
var
i,s:integer;
begin
s:=0;
for i:=1 to 100 do s:=s+2*i;
Writeln(s)
end.