понедельник, 21 апреля 2014 г.

1.
Program K;
Var a,b,c, min:integer;
Begin
Readln (a, b, c);
if (a<b) and (a<c) then min:=a;
if (b<a) and (b<c) then min:=b else min:=c;
writeln(min);
End.
2.
Program vozrast;
var x, y,max: integer;
Begin
Writeln ("Возраст Саши, возраст Маши");
Readln (x,y);
if x>y then writeln ("Саша старше Маши") else writeln ("Маша старше Саши");
If x=y then writeln ('Возраст Маши равен возрасту Саши');
End.
3.
Program Two;
var x:integer;
begin
Writeln('Введите номер дня недели: ');
Readln(x);
if (x = 1)then writeln('Понедельник');
if (x = 2)then writeln('Вторник');
if (x = 3)then writeln('Среда');
if (x = 4)then writeln('Четверг');
if (x = 5)then writeln('Пятница');
if (x = 6)then writeln('Суббота');
if (x = 7)then writeln('Воскресенье');
End.
4.
Данная программа вычисляет количество введенных чисел больше нуля.
Пример исходных данных и результата:
1 пример
x=6
y=-3
z=7
i=2
2 пример
x=0
y=-2
z=-5
i=0

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

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