Pascal Федя пытается протолкнуть в форточку размерами X см и Y см свою голову, длина окружности которой С см. Удастся ли мальчику его эксперимент или голова застрянет?
1
ОТВЕТЫ
Var
X,Y,C:real;
Begin
Write(X = );
ReadLn(X);
Write(Y = );
ReadLn(Y);
Write(C = );
ReadLn(C);
C:=C/Pi;
if (Xgt;=C)and(Ygt;=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 (Xgt;=C)and(Ygt;=C) then Write(Удастся)
else Write(Не удастся)
End.
3
Отв. дан
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Thetagas
Приведите примеры истинных и ложных, простых и сложных высказываний. ...
2019-03-17 10:56:56
Казимирович
Дано два числа.Если их сумма кратна 5,прибивать 1,иначе вычесть ...
2019-03-17 10:56:44
Меркурий
Федя пытается протолкнуть в форточку размерами X см и ...
2019-03-17 10:56:40
Фавстин
Напишите операторы ввода вывода данных на языке паскаль ...
2019-03-17 10:56:02