Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program p;
vara,b,c,i,j,n : integer;
beginwriteln('введите три числа'); readln(a,b,c);
if a> b then if a> c then writeln(a,c,b) else writeln(c,a,b) else if c> b then writeln(a,b,c) else writeln(b,c,a);
readln; end.
var
n: integer;
begin
readln(n);
writeln(abs(n)-2);
end.
program xxx;
var d, x1, x2, y1,y2 : real;
write('введите координаты 1 точки: ');
readln(x1, y1);
write('введите координаты 2 точки: ');
readln(x2, y2);
d: =sqrt(sqr(x2-x1)+sqr(y2-y1));
write('растояние между точками =', d);
readln
389 365 402 201
триста восемьдесят девять миллиардов триста шестьдесят пять миллионов четыреста две тысячи двести один
Популярные вопросы