3 задачи

[солнышко777]

Здравствуйте решити пожалуйста и можно объяснение я просто плохо понимаю паскаль!

4.16. Известны площади крута и квадрата. Определить:
а) уместится ли круг в квадрате;
б) уместится ли квадрат в круге?


4.47 Известен рост трех человек. Определить, одинаков ли их рост.

4.106 Известны год и номер месяца рождения человека, а также год и номер месяца сегодняшнего дня (1 — январь и т.п.). Определить возраст человека (число полных лет и число полных месяцев). При определении числа полных месяцев дни месяца не учитывать, а использовать разность между номерами месяцев. Например, если месяц рождения февраль, а текущий (сегодняшний) месяц май, то число полных месяцев равно трем независимо от дней рождения и сегодняшнего.

:conf used:
заранее спасибо большое

[Hacker19_90]

1) Ток проверь

Program prim;
Var a,r,s1,s2:real;
Begin
    Write('введите площадь круга и квадрата');
    Readln(s1, s2);
    A:=sqrt(s2);
    R:=sqrt(s/3.14);
    If (r<a/2) then writeln (' круг уместится в квадрате') 
        Else writeln (' круг неуместится в квадрате');
If (a*sqrt(2))>(4*r) then writeln ('квадрат уместится в круге')
Else Writeln('квадрат неуместится в круге');
Readln
End.

[Hacker19_90]

2)

 
Program prim_8;
uses crt;
Var s1,s2, s3:real;
Begin
    clrscr;
    Write('введите рост трёх человек');
    Readln(s1, s2, s3);
    If (s1 = s2) and (s1 = s3) then writeln ('Рост одинаковый!') 
        Else writeln ('Рост неодинаковый!');
ReadKey;
End.

[DRAgon™]

3

uses crt;
var god,n,godd,nd,voz,i,mes:Integer;
begin
repeat
Writeln('Введите год рождения');
readln(god);
until (god>0)AND(god<=2010);

repeat
Writeln('Введите номер месяца');
readln(n);
until (n>0)AND(n<=12);

 repeat
Writeln('Введите год сегодняшнего дня');
readln(godd);
until (godd>0)AND(godd<=2010);

repeat
Writeln('Введите номер месяца сегодняшнего дня');
readln(nd);
until (nd>0)AND(nd<=12);
Writeln;
mes:=nd-n;
voz:=godd-god;
Writeln('Возраст человека:');
Writeln('Лет -',voz,'Месяцев',mes);
end.

[Hacker19_90]

3)

program pr3;
uses crt;
var
    dayBD, DayCur, yearBD, yearCur: integer;
begin
    clrscr;
    Writeln ('Введите месяц и год рождения:');
    Readln (dayBD, yearBD);
    Writeln ('Введите месяц и год сегодняшние:');
    Readln (dayCur, yearCur);
    if yearBD > yearCur then
    begin
        Writeln ('Ошибка введённых данных');
        Exit;
    end
    else
        begin
            if dayBD <= dayCur then
                Writeln ('Вашему человеку ', yearCur - yearBD, ' лет и ', dayCur - dayBD, ' месяцев!!');
             else 
                 Writeln ('Вашему человеку ', yearCur - yearBD, ' лет и ', ((12 -dayBD) + dayCur), ' месяцев!!');
        end;
        ReadKey;
end.

[DRAgon™]

ну можно и так

[Hacker19_90]

А лучше совместить!

[DRAgon™]

вось совместил

uses crt;
var god,n,godd,nd,voz,i,mes:Integer;
begin
repeat
Writeln('Введите год рождения');
readln(god);
until (god>0)AND(god<=2010);

repeat
Writeln('Введите номер месяца');
readln(n);
until (n>0)AND(n<=12);

 repeat
Writeln('Введите год сегодняшнего дня');
readln(godd);
until (godd>0)AND(godd<=2010);
 if god > godd then
    begin
        Writeln ('Ошибка введённых данных');
        Exit;
    end;
repeat
Writeln('Введите номер месяца сегодняшнего дня');
readln(nd);
until (nd>0)AND(nd<=12);
Writeln;
mes:=nd-n;
voz:=godd-god;
Writeln('Возраст человека:');
Writeln('Лет -  ',voz,'  Месяцев -  ',mes);
end.

[Hacker19_90]

не так совместил!

[XeruH]

Hacker19_90 а в случае когда dayBD > dayCur почему не уменьшаешь еще на год?