вторник, 29 апреля 2014 г.

Домашняя работа №18

1. 
program my;
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 my;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 my;
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.

 Программа cчитает количество чисел, которые больше нуля.

Комментариев нет:

Отправить комментарий