
Chookniz
5 год назад
PascalФедя пытается протолкнуть в форточку размерами X см и Y см свою голову, длина окружности которой С см. Удастся ли мальчику его эксперимент или голова застрянет?
ОТВЕТЫ

Бронислав
Oct 24, 2020
Var
X,Y,C:real;
Begin
Write('X = ');
ReadLn(X);
Write('Y = ');
ReadLn(Y);
Write('C = ');
ReadLn(C);
C:=C/Pi;
if (X>=C)and(Y>=C) then Write('Удастся')
else Write('Не удастся')
End.
X,Y,C:real;
Begin
Write('X = ');
ReadLn(X);
Write('Y = ');
ReadLn(Y);
Write('C = ');
ReadLn(C);
C:=C/Pi;
if (X>=C)and(Y>=C) then Write('Удастся')
else Write('Не удастся')
End.
78
Смежные вопросы: