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;
2) Запишите оператор ветвления в общем виде.

3) Выполните одно из следующих двух заданий:

a) Найти и исправить ошибки в записи оператора ветвления:

if x>=y then

x:=0;

y:=0;

else

write(z);

b) Какое значение будет иметь переменная t после выполнения программы, если x=1.5, y=–0.8?

var x, y: real;

t: boolean;

begin

read(x);

t:=x
read(y);

t:=t or (y
writeln(t);

end.
4) Даны три числа. Возвести в квадрат те из них, которые положительны. Остальные оставить без изменения.
5) Записать на Паскале логическое выражение истинное только при выполнении следующего условия: хотя бы одно из чисел x, y, z является положительным.

Answer 1

1) D
2) 
полная форма if (условие) then ...else ...;
краткая форма if (условие) then ...;
3) 
a) if x>=y then
begin
x:=0;

y:=0;
end;

else

write(z);
b) 
1.5