Program Programma;
Uses crt;
var xA,xB,yA,yB,D: real;
Begin clrscr;
write('Введите координаты точки A через пробел: ');
readln(xA,yA);
write('Введите координаты точки B через пробел: ');
readln(xB,yB);
d:=sqrt(sqr(xA-xB)+sqr(yA-yB));
writeln;
write('Длина отрезака AB = ',d:0:3)
End.
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadArrReal(8);
a[::-1].Println
end.
Ответ:
1=187.68.
2=160.8
3=29.82
4=190.24
5= 105.5
Сума / 100% * комиссию = ответ
if n mod 2=0 then write('Четное')
else write('Не четное');
Program n1;
uses crt;
var
s:string;
i,k:integer;
begin
writeln('Введите строку');
readln(s);
for i:=1 to length(s) do
if s[i]='и' then k:=k+1;
writeln(k,' раз(а)');
<span>end.
program n2;
uses crt;
var s1,s2:string;
begin
writeln('Введите первую строку');
readln(s1);
writeln('Введите вторую строку');
readln(s2);
if s1[1]=s2[1] then writeln('Совпадают') else writeln('Не совпадают');
<span>end.
program n3;
uses crt;
var
s:string;
i:integer;
begin
writeln('Введите строку');
readln(s);
for i:=1 to length(s) do
if s[i]='н' then write(i,' ');
<span>end.
program n4;
uses crt;
var
s:string;
i:integer;
begin
writeln('Введите строку');
readln(s);
for i:=1 to length(s) do
if s[i]='.' then begin
s[i]:='*'; insert('*',s,i+1);
end;
writeln(s);
<span>end.
</span>
program n5;
uses crt;
var
s:string;
i:integer;
a,b:char;
begin
writeln('Введите строку'); readln(s);
writeln('Введите символ А'); readln(a);
writeln('Введите символ B'); readln(b);
for i:=1 to length(s) do begin
if s[i]=a then s[i]:=b;
if s[i]=b then s[i]:=a; end;
writeln(s);
end.</span>
</span></span>
