Question

Помогите с Паскалем

Answer 1

1)

2) 5

3) Var s:string;

i,k:integer;

Begin

write('Введите строку: ');readln(s);

k:=0;

For i:=1 to Length(s) do

if s[i]='.' then

Begin

inc(k);

s[i]:='!';

End;

if k<>0 then writeln('Полученная строка: ',s)

else writeln('Точек нет');

readln;

End.

Answer 2

sqrt(sqr(x-3)=sqr(5-3)=sqr(2)=4)=2/sqrt(y)=2/sqrt(0.16)=2/0,4=5