Ответы на вопрос:
Объяснение:
var
x:integer;
begin
readln(x); writeln ('y = ', x*x + abs(x-8));
end.
Var a,b,c : integer; begin read(a,b,c); if (a=b) and (a=c) then writeln('равны') else writeln('не равны'); end.
Популярно: Информатика
-
ValeriyaGerner27.03.2022 10:42
-
Kolyabu15.01.2021 14:43
-
kikvadze12312301.04.2023 10:01
-
allasrasHiron22.04.2020 08:14
-
myisipov1erg11.08.2022 05:18
-
TheSniper30.06.2023 13:12
-
Санжик70703.04.2022 09:50
-
Gerri1117.03.2021 12:34
-
pomogite228plez29.05.2022 10:29
-
lyis20.05.2023 00:43