Question

вас чисто сердечно мне(( 1) выберите из предложенных полные записи оператора if: a) if x> y then begin if x> 0 then x: =0 else y: =0; end else x: =y c) if x> y then x: =0 else y: =0; b) if x> y then begin x: =0; y: =0; end; d) if x> y then begin x: =0; y: =0; end; 2) запишите оператор ветвления в общем виде. 3) выполните следующие : a) найдите ошибки в записи оператора ветвления, запишите правильный вариант фрагмента программы: if x: =y then; x: =0; y: =0; end; else write(z); b) по блок-схеме составьте программу. 4) даны три числа. возвести в куб те из них, которые нечетны. остальные оставить без изменения. 5) нарисовать на плоскости (х,у) область, в которой истинно указанное выражение: (y> =x) and (y+x> =0) and (y< =1).

Answer 1

1) - a), c)

2) if <условие> then <оператор_1> else <оператор_2>

3) а)
if x=y 
 then begin x:=0; y:=0; end
 else write(z);

б) - нет блок-схемы

4)
var a,b,c:integer;
begin
writeln('a, b, c:');
readln(a,b,c);
if a mod 2 <> 0 then a:=a*a*a;
if b mod 2 <> 0 then b:=b*b*b;
if c mod 2 <> 0 then c:=c*c*c;
writeln('a = ',a,' b = ',b,' c = ',c);
end.

Пример:
a, b, c:
5 2 7
a = 125 b = 2 c = 343

5)
Решение - в прилагаемом файле.

Answer 2

1.ответ: скорее всего C(b и d идентичны) 2.if условие then begin операторы; end else begin операторы; end: 3. a) if x:=y then begin x:=0; y:=0; end else writeln(z); (Перед else никогда не ставиться запятая; после и перед then тем более; если нужно указать несколько операторов, то в зависимости от условия задачи устанавливаем begin и end) b) Некорректная задача. Где блок-схема? 4. var a,b,c:integer;
begin
readln(a,b,c);
if a mod 2=1 then writeln(a*a*a);
if b mod 2=1 then writeln(b*b*b);
if c mod 2=1 then writeln(c*c*c);
end.
5. Опять же некорректная задача. В каком смысле нарисовать?