Напишите программу в pascal , которая из трех введенных с клавиатуры чисел возводит в квадрат положительные, а отрицательные оставляет без изменения.
207
344
Ответы на вопрос:
Var a, b, c: integer; begin readln(a, b, c); //вводим a b c if a > 0 then writeln(a*a) //если a > 0 вывести квадрат a else writeln(a); //иначе вывести a if b > 0 then writeln(b*b) //если b > 0 вывести квадрат b else writeln(b); //иначе вывести b if c > 0 then writeln(c*c) //если c > 0 вывести квадрат c else writeln(c); //иначе вывести c end.
1) именительного падежа,единственного числа. 2) следовательно, число не оканчивается на 0
Популярно: Информатика
-
SimbatDuysebek26.10.2021 02:10
-
Наталья020117.02.2021 22:37
-
lublubkoba25.11.2022 22:17
-
Мария830110.05.2022 08:59
-
bulycheva030321.10.2022 10:28
-
Вовчики17.11.2022 06:09
-
юська311.11.2021 11:19
-
alexaval1980p08mu018.07.2020 20:07
-
alikhanchik04.08.2022 23:40
-
bogdannar201310.01.2023 04:52