Ответы на вопрос:
2.) var x1, y1, x2, y2, n1, n2: real; begin write('x1, y1: '); read(x1, y1); write('x2, y2: '); read(x2, y2); n1: = sqrt(sqr(x1)+sqr(y1)); writeln(n1); n2: = sqrt(sqr(x2)+sqr(y2)); writeln(n2); if n1< > n2 then if n1< n2 then writeln('1 точка находится ближе к началу координат.') else writeln('2 точка находится ближе к началу координат.') else writeln('точки находятся на равном расстоянии от начала координат.') end.3.)var n, x, a, b, c, s: integer; beginwrite('введите число: '); readln(n); if (n> 99) and (n< 1000) thenbeginwrite('введите x: '); readln(x); a: = n div 100; b: = (n - a*100) div 10; c: = (n - a*100 - b*10); if a=x then s: =s+1; if b=x then s: =s+1; if c=x then s: =s+1; if s> 0 thenwriteln('в числе есть ', x)else writeln('в числе нет ', x); endelsewriteln('число не трехзначное'); end.
Популярно: Информатика
-
biolev03.07.2022 02:34
-
liltvin25.06.2023 15:20
-
алибек2922.07.2022 07:49
-
katerinamorozo222.06.2023 04:57
-
Янчик31222.01.2023 12:57
-
almightybarbara29.10.2020 13:35
-
ivanychboss25.08.2022 07:07
-
pro100pakp01iyt27.10.2020 15:50
-
kryp429.10.2022 06:13
-
puh999902.01.2022 07:39