Пожалуйста, представьтесь:

Алгоритмы с ветвлениями 6

1. Каков результат выполнения следующего алгоритма:

var x, y: real;

    t: boolean;

begin

   x:=1.7; y:=4.8;
   t:=x<trunc(x);
   t:=t or (y<trunc(y));
   writeln(t);

end.

False

True

1.7 

4.8

2. Каков результат выполнения алгоритма?

var x, y: real;
   t: boolean;
begin
   x:=0.1; y:=-4.1;
   t:=x<trunc(x);
   t:=t or (y<trunc(y));
   writeln(t);
end.

3. Каков результат выполнения алгоритма?

Var a,a1,a2,a3,kol: integer;
Begin
  a:=348; kol:=0;
  If (a>99) and (a<1000) then
  Begin
    a1:=a div 100;
    a2:=a mod 100 div 10;
    a3:=a mod 10;
     if a1 mod 2=0 then kol:=kol+1;
     if a2 mod 2=0 then kol:=kol+1;
     if a3 mod 2=0 then kol:=kol+1;
  End;
 Writeln(kol);
End.

4. Какие из следующих условий находят нечетные числа

  n mod 2 >0

 n mod 2 = 0

 n mod 2 <> 0

 n mod 2 = 1

n div 2 = 0

5. Каков результат выполнения данного алгоритма:

Var a,a1,a2,a3: integer;
Begin
   a:=344;
   If (a>99) and (a<1000) then
   Begin
     a1:=a div 100;
     a2:=a mod 100 div 10;
     a3:=a mod 10;
      if a1 mod 2=0 then
     Writeln('цифра ',a1,' четная');
      if a2 mod 2=0 then
     Writeln('цифра ',a2,' четная');
      if a3 mod 2=0 then
     Writeln('цифра ',a3, ' четная');
      If (a1 mod 2=1) and (a2 mod 2=1) and (a3 mod 2=1) then
     Writeln('в числе нет четных цифр');
   End
   Else
   Writeln('число не является трехзначным');
End.

цифра 4 четная

цифра 4 четная

      цифра 4 четная

в числе нет четных цифр

число не является трехзначным