П Р О Г Р А М М И Р О В А Н И Е P A S C A L(ДАЮ 25 БАЛЛОВ!!!!) 1)Представьте в виде...

Question

П Р О Г Р А М М И Р О В А Н И Е P A S C A L(ДАЮ 25 БАЛЛОВ!!!!)
1)Представьте в виде блок-схемы алгоритм выделения прямой речи в предложении(рассмотрите случаи:слова автора перед прямой речью, прямая речи прерывается словами автора, слова автора после прямой речи)
2)Даны две точки на плоскости. Запишите алгоритм, позволяющий определить, какая из них находится ближе к началу координат. Способ записи выбрать самостоятельно.
3) Запишите алгоритм, позволяющий определить, есть ли среди цифр заданного целого трехзначного числа х одинаковые.

Answer 1

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 n1writeln('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) then<br>begin
write('Введите 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 then
writeln('В числе есть ', x)
else writeln('В числе нет ', x);
end
else
writeln('Число не трехзначное');
end.