Регистрация
Aliya5511
14.04.2023 01:57
Информатика
Есть ответ 👍

Пр о г р а м м и р о в а н и е p a s c a l( 25 ) 1)представьте в виде блок-схемы алгоритм выделения прямой речи в предложении(рассмотрите случаи: слова автора перед прямой речью, прямая речи прерывается словами автора, слова автора после прямой речи) 2)даны две точки на плоскости. запишите алгоритм, позволяющий определить, какая из них находится ближе к началу координат. способ записи выбрать самостоятельно. 3) запишите алгоритм, позволяющий определить, есть ли среди цифр заданного целого трехзначного числа х одинаковые.

136
457
Посмотреть ответы 2

Ответы на вопрос:

Васютка3333
Васютка3333
4,4(15 оценок)
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.
fefilovanastyaa
fefilovanastyaa
4,8(82 оценок)

Редактор формул (Microsoft Equation) позволяет добавлять в текст документа математические символы и формулы. Но «добраться» до этого редактора не так-то Чтобы его запустить, нужно открыть меню Вставка — Поле…. В открывшемся диалоговом окне «Поле» из раскрывающегося списка «Категории» выбрать «Формулы».

Объяснение:

Можно также создать макрос для запуска «Редактора формул». Но все это неудобно. Лучше затратить один раз пару минут и создать свою панель инструментов для запуска «Редактора формул».

Популярно: Информатика