Прошу ! паскаль 8 класс! напишите следующую программу на языке паскаль. даны целые числа a,b и с. если а< = b< =c, то все числа заменить их квадратами. если a > b > c, то каждое число замените наибольшим из них, в противном случае смените знак каждого числа
159
314
Ответы на вопрос:
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.
Популярно: Информатика
-
LikkaSchool20505.12.2021 06:18
-
ЮкиТеру24.02.2020 04:10
-
ХлойкаПрайс10.03.2022 05:27
-
UchenikH01.06.2023 16:08
-
Ildessova28.06.2020 16:52
-
СветаВета14.01.2020 13:12
-
Glupaya99023.01.2022 19:48
-
kseniya711703.07.2021 15:45
-
киреева216.11.2020 13:30
-
Tata27020411.01.2023 17:37