<span>Если предположить, что сначала уходили те, кто надел обувь большего размера, то таких будет, как минимум, двое. Третий уходящий может надеть свою обувь. Поэтому правильным ответом будет (Б) 2 человека.</span>
Var x1,y1,x2,y2,r:real;
begin
write('Введите x1,y1');read(x1,y1);
write('Введите x2,y2');read(x2,y2);
r:= sqrt(sqr(x2-x1) + sqr(y2-y1));
write('расстояние между двумя точками = ',r);
<span>end.</span>
Алгори́тм — набор инструкций, описывающих порядок действий исполнителя для достижения некоторого результата.
var a: integer;
begin
readln(a);
if a<0 then a:=(-1)*a;
if (a mod 2<>0) and (a>9) and (a<100) then
write(a,' - нечетное двузначное число') else
write(a,' - не является нечетным двузначным числом');
end.
Вот на Pascal (Console Aplication) :
var
a:Integer;
begin
Writeln('Vvedite nominal valuti');
Readln(a);
case (a mod 10) of
1:
if (a=11) then
Writeln('Y Vas est ',a,' rublei')
else
begin
Writeln('Y Vas est ',a,' rubl');
end;
2,3,4:
if (a=12) or (a=13) or (a=14) then
Writeln('Y Vas est ',a,' rublei')
else
begin
Writeln('Y Vas est ',a,' rublya');
end;
0,5,6,7,8,9:
if (a=15) or (a=16) or (1=17) or (a=18) or (a=19) then
Writeln('Y Vas est ',a,' rublei')
else
begin
Writeln('Y Vas est ',a,' rublei');
end;
end;
Readln;
<span>end.</span>