Var x1,y1,x2,y2,r:real;
begin
readln(x1,y1);
readln(x2,y2);
r:=sqrt(sqr(x2-x1)+sqr(y2-y1));
writeln(r:5:3);
end.
Пример:
1. 1.
2. 2.
<span>1.414</span>
Ответ:
Объяснение:слово дорогой заменится на слово ветер.
Find what - найти
Replace - заменить
Тело:
var a,b,c:integer; m:boolean;beginm:=True;read(a,b,c);if (a+b<0) or (b+c<0) or (a+c<0) then m:=False;write(m);end.
1)
цел a, b, c
алг
нач
ввод a,b,c
если mod(a+b,2)=0 то
вывод (a+b)/c
иначе
вывод (a+b)*c
все
кон
2)
цел a,d1,d2
алг
нач
ввод a
если (a>9) и (a<99) то
d1:=div(a,10);
d2:=mod(a,10);
вывод d1*d2
вывод' '
вывод d1+d2
вывод' '
вывод d1-d2
иначе
вывод 'ошибка'
все
кон
1.25 кб=1280 байт
байт=8 бит
1,25 кБ=10240 бит
В 10240 бит вместилось 2048 символов, потому что 10240 бит/2048 символов=5 бит/символ. 2^5=32
в итоге ответ: мощность алфавита 32 бита