1. Складіть проект з використанням змінних для малювання двох прямокутників Пініями різної товщини і різного кольору. Збережіть складений проєкт у вашій
папці у файлі з іменем завдання 4.2.4.
164
202
Ответы на вопрос:
Var a,b,c: integer; begin writeln('a='); readln(a); writeln('b='); readln(b); writeln('c='); readln(c); if (a< =b) and (b< =c) then writeln( sqr(a),' ', sqr(b),' ', sqr(c)); if (a> b) and ( b> c) then writeln ('a=',a,' b=',a,' c=',a) else writeln (-a,' ',-b,' ', -c); readln; end.
Популярно: Информатика
-
mishkaievlev23.10.2021 17:34
-
HelpFox16.09.2021 12:02
-
Элина1753924.09.2022 06:52
-
msganny20.03.2022 04:02
-
МисакиКогуна22.12.2020 05:11
-
diamond1277p08lfa26.04.2022 15:43
-
зика2225.12.2021 08:11
-
тима15613.06.2023 23:59
-
adelya60611.06.2022 01:34
-
linmiss11.05.2021 23:08