1.Укажите условие выбора чисел, кратных 5 и не кратных 10:
(X mod 5=0) and (X mod 10<>0);
(X mod 5<>0) or (X mod 10=0);
(X mod 5=0) and (X mod 10=0);
2.Какое значение примет переменная k в результате выполнения фрагмента программы:
а:= 25;
if a>0 then k:=1 else k:=0
3.Выберите оператор, определяющий, является ли число а четным.
if a mod 2 = 0 then write (`Да) else (`Нет`)
if a mod 2 = 1 then write (`Да) else (`Нет`)
if a mod 2 = 0 then write (`Нет) else (`Да`)
if a mod 2 = 1 then write (`Нет) else (`Да`)
4. Чему равно значение выражения:
sqrt(16)*2 - sqr(3) - 20/5
а) 5 b) -5 c) -6 d) 6
5.Язык программирования Паскаль был разработан профессором:
А. Никлаусом Виртом. Б. Альбертом Энштейном.
В. Иваном Борменталем. Г. Блезом Паскалем.
pascalabc:
program f0rwardirop;
var r, x,y: real;
b: boolean;
begin
writeln('* alphaeus is *');
write('ok, введите r ='); readln(r);
write('теперь введите х ='); readln(x);
write('и, наконец, введите y ='); readln(y);
if x> =0 then
if (x*x+y*y < = r*r) then b: = true else b: =false
else
if (abs(x) < =r) and (abs(y) < =r) and (abs(x) < = abs(y)) then b: = true else b: =false;
if b then writeln('точка (',x,',',y,') принадлежит закрашенной области')
else writeln('точка (',x,',',y,') не принадлежит закрашенной области');
end.
uses graphabc;
procedure drawlight(x, y, r : integer; c : color);
begin
brush.color : = c;
circle(x, y, r);
end;
begin
randomize;
var v : = random(1, 3);
var(c1,c2,c3): =(clwhite,clwhite,clwhite);
case v of
1 : c1 : = clred;
2 : c2 : = clyellow;
3 : c3 : = clgreen;
end;
drawlight(window.center.x, window.height div 10 * 2, window.height div 7, c1);
drawlight(window.center.x, window.height div 10 * 5, window.height div 7, c2);
drawlight(window.center.x, window.height div 10 * 8, window.height div 7, c3);
end.
в паскале