Домашнее задание №26 Тема: Ветвления на Паскале. Программирование диалога с компьютером.

1. Составьте на Паскале программу определения минимума из трёх чисел с использованием логических операций. Программа должна иметь дружественный интерфейс. 

Program one
Var a,b,c:integer;
Begin
  WriteLn('a=');
  ReadLn(a);
  WriteLn('b=');
  ReadLn(b);
  WriteLn('c=');
  ReadLn(c);
  If a<b a<c Then WriteLn(a, ' - меньшее')
  Else If b<a b<c Then WtiteLn(b, '- меньшее')
  Else If c<a c<b WriteLn(c, ' - меньшее')
  Else If a=b=c WriteLn('числа равны')
End.

2. Составьте на Паскале программу, которая запрашивает возраст двух детей (Саши и Маши), а затем выводит информацию о том, кто из них старше.    

Program two
Var a,b:integer;
Begin
  WriteLn('Возраст Саши');
  ReadLn(a);
  WriteLn('Возраст Маши');
  ReadLn(b);
  If a>b Then WriteLn('Саша старше Маши')
  Else If b<a Then WtiteLn('Маша старше Саши')
  Else If a=b Then WriteLn ('Возраст Маши равен возрасту Саши')
End.

3. Запишите на языке Паскаль программу, которая по номеру для недели будет выводить его название.    

Program three
Var x:integer;
Begin
  WriteLn('Введите номер дня недели')
  ReadLn(x);
  If x=1 Then WriteLn('понедельник')
  Else If x=2 Then WriteLn('вторник')

  Else If x=3 Then WriteLn('среда')

  Else If x=4 Then WriteLn('четверг')

  Else If x=5 Then WriteLn('пятница')

  Else If x=6 Then WriteLn('суббота')

  Else If x=7 Then WriteLn('воскресенье')

  Else If x>7 Then WriteLn('нет такого дня недели');

End.

4. Что вычисляет приведённая ниже программа? Приведите два примера исходных данных и результата

Program example;
Var x,y,z,I :integer;
Begin
  ReadLn(a,b,c);
  i:=0;
  If a>0 then i:=i+1;
  If b>0 then i:=i+1;
  If c>0 then i:=i+1;
  WriteLn(i)
End.   


Эта программа вычисляет количество введенных чисел больше нуля.
Пример исходных данных и результата:
I
x=5
y=-3
z=1
i=2
II
x=0
y=28
z=-5
i=1