Var x1,y1,x2,y2,d:real;
begin
Writeln('Координаты х и у первой точки: ');
readln(x1,y1);
Writeln('Координаты х и у второй точки: ');
readln(x2,y2);
d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
Writeln('Расстояние между ними: ',d);
<span>end.</span>
Вариант значения D и работы алгоритма:
D := 40
40 > 30 (Да)
Y := 40
Смотри картинку
№ 2
var
n,i,j:integer;
s,s1:string;
begin
readln(S);
for n:=1 to 9 do
begin
str(n,s1);
for i:=1 to length(S) do
if s[i]=s1 then
inc(j);
writeln('Цифр ',n,' всего ',j);
j:=0;
end;end.
<span>№4
</span>var
<span>a:array[1..100] of integer;
kmax,max,i,n:integer;
begin
readln(n);
read (a[1]);
max:=a[1];
kmax:=1;
for i:=2 to n do
begin
read(a[i]);
if a[i]=max then
inc(kmax);
if a[i]>max then
begin
max:=a[i];
kmax:=1;
end;
end;
writeln;
writeln('Максимальное число =',max,' В массиве оно встречается ',kmax,' раз');
<span>end.</span></span>
1. Остановиться на тротуаре перед светофором.
2. Посмотреть на светофор.
3. Если горит красный или желтый свет, то ждать, пока на светофоре не загорится зеленый.
4. Если горит зеленый свет, перейти дорогу до тротуара противоположной стороны улицы.
5. Стоп.
<span>77-1= 76\2=38 было в 5А классе</span>