вас чисто сердечно мне(( 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).
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)
Решение - в прилагаемом файле.
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. Опять же некорректная задача. В каком смысле нарисовать?