практическая работа на 3-5 октября

Ветвление

1.     Дано целое число x. Написать программу, заменяющую его нулем, если число x меньше нуля, и увеличивающую его на 4, если число x  больше либо равно нулю.
var x,y:integer;
begin
write('Введите x');
readln(x);
if x<0 then  x: =0
          else x:=x-4;
writeln('x-',x);

end.

  2  Дано целое число x. Написать программу, вычисляющую y, если число x меньше 5, то у= x-10 иначе y:=x+7

var x,y:integer;
begin
write('Введите x');
readln(x);
if (x>5) then y:=x+7
          else y:=x-10;
writeln('y',y);

end.

 3.     Даны целые числа а,b. Написать программу, которая выводит число 1, если числа равны, и число 0 в противном случае.

var a,b:real;
begin
write('Введите a');
readln(a,b);
if a=b  then
        writeln(1)
        else
        writeln(0)
        end.

4.     Даны целые числа а и b. Написать программу, которая находит большее из них.
Var a,b: integer;
begin
      write(' введите a')    ;
readln(a);
  write(' введите b');
readln(b);
if a>b
         then         write(' a больше')
         else          write(' b больше')    ;
end.

 5.     Даны целые числа а и b. Написать программу, которая выясняет два ли числа больше  нуля и выводит "да" иначе "нет".

   
begin
      write(' введите a')    ;
readln(a);
  write(' введите b');
readln(b);
  if (a>0) and (b>0)
  then         write(' да')
         else          write(' нет')    ;
end.

6.     Даны целые числа а и b. Написать программу, которая выясняет хоть одно число больше  нуля и выводит "да" иначе "нет".

   
begin
      write(' введите a')    ;
readln(a);
  write(' введите b');
readln(b);
  if (a>0) or (b>0)
  then         write(' да')
         else          write(' нет')    ;
end.