Пожалуйста, представьтесь:
Алгоритмы с ветвлениями 3
1. Какую
характеристику числа определяет данный алгоритм?
Var x,
к: integer;
Begin
Write('Введите значение x=');
Readln(x);
if x>0
then
к:=0
else
к:=1;
End.
число четное
число нечетное
число
положительное
число отрицательное
2. Каков
результат выполнения алгоритма?
Var x,
к: integer;
Begin
x:=-8;
if x>0
then
к:=0
else
к:=1;
writeln(k);
End.
3.
Каков результат выполнения алгоритма?
Var x,
к: integer;
Begin
x:=-81;
if x
mod 2 =0
then
к:=0 else
к:=1;
writeln(k);
End.
4. Выберите правильное
утверждение. Данный алгоритм определяет...
var
n,k: integer;
begin
read(n);
if n mod 3 = 0 then k:=0 else k:=1;
writeln(k);
n:=8;
end.
четность числа
делимость числа на 3
делимость числа
на 8
кратность числа 3
кратность числа 8