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 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;
var x:integer;
begin
writeln(‘номер дня недели’);
readln(x);
writeln(‘номер дня недели’);
readln(x);
if x=1 Then writeLn('понедельник')
else If x=2 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читает количество чисел, которые больше нуля.
Комментариев нет:
Отправить комментарий