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>
Во втором находится сумма цифр числа
а = 1
б = 2
с = 5
Сумма = 8
В третьем надо написать, насколько я вижу, на паскале программу.
program Hello;var a,b,c,x:integer;begin readln(x); a:=x div 100; b:=x mod 100 div 10; c:=x mod 10; writeln('Сотни ',a); writeln('Десятки ',b); writeln('Единицы ',c);end.
а-22,000,044 б-4,222,242,0222 в-202,202,222,222 г-1,434,152
Microsoft Office Power Point
Просто переведем оба числа в 10 систему счисления:
они равны.
Ответ: да
