Question

Пожалуйста сделайте!!! Если не все то хоть что то 1)     Выберите из предложенных неполные записи оператора if:
a)    
if x>y then   x:=0
         else   y:=0; c)    
 if x>y then   x:=0;
b)         
if x>y then
  begin
           x:=0;
           y:=0;
  end; d)         
if x>y then
  begin
       x:=0; y:=0;
  end
         else  y:=110;
3)     Выполните одно из следующих двух заданий:
a)     Найти и исправить ошибки в записи оператора ветвления:
if x>=y then begin  x:=0; y:=0;
           else  end;   write(z);
b)    Какое значение будет иметь переменная t после выполнения программы, если x=2.1, y=8.4?
var x, y: real;
    t: boolean;
begin
    read(x);
    t:=x     read(y);
    t:=t or (y     writeln(t);
end.
4)     Даны три числа. Увеличить в 5 раз те из них, которые отрицательны. Остальные оставить без изменения.
5)     Записать на Паскале логическое выражение истинное только при выполнении следующего условия: хотя бы одно из чисел x, y, z является четным.

Answer 1

а) (x>=0) and (x<=1)
б) (x<0)or(x>1)
в) (x>0)and(y>0)
г) (x>0)or(y>o)
д) (x<=0)and(y<=0)
е) (x>0)and(y<0) or (x<0)and(y>0)