Дан алгоритм для Робота:
алг
нач
нц 11 раз
вправо; закрасить
кц
кон
1.Если правее Робота не встретится препятствий, то, выполнив приведённый выше алгоритм, он переместится на 11 клеток вправо и закрасит эти клетки.
2.Если левее Робота не встретится препятствий, то, выполнив приведённый выше алгоритм, он переместится на 11 клеток влево и закрасит эти клетки.
3.Если правее Робота не встретится препятствий, то, выполнив приведённый выше алгоритм, он переместится на 11 клеток вправо.
4.Если правее Робота не встретится препятствий, то, выполнив приведённый выше алгоритм, он переместится на n клеток вправо и закрасит эти клетки
236
465
Ответы на вопрос:
Var a,b,s,h: real; beginwrite('введите стороны a,b и h через пробел: '); readln(a,b,h); writeln(' '); if a< b then s: =(a+b)*h/2; if a< b then writeln('s трапеции = ',s)else writeln('ошибка'); end. не знаю, правильно ли я вас понял, но я сделал так, если при вводе значения a и b, число a окажется больше b, то выдаст ошибку, если введете все верно (a< b), то вам выдаст площадь трапеции
Популярно: Информатика
-
Marmar2005211031.10.2020 14:55
-
дашаdaria1208.02.2020 03:06
-
DEADK1NG12.03.2020 19:15
-
mistermelya28.03.2021 23:43
-
Dasha07Dasha05.06.2022 10:27
-
ДашаЛис5609.04.2020 13:39
-
Синуэлла31.01.2021 07:29
-
викториясиб04.08.2020 18:12
-
askarovaalisa24.03.2023 14:47
-
ocreater01.01.2021 17:44