Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
d1,d2,d3,d4: string;
begin
randomize;
readln(d1);
readln(d2);
readln(d3);
readln(d4);
case random(4) of
0: writeln(d1,d2,d3);
1: writeln(d1,d2,d4);
2: writeln(d2,d3,d4);
3: writeln(d1,d3,d4);
end;
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
у меня тоже даша получилось))
7 - диск, винт, сиди
9 пробел
10 импорт
11 окно
12ввод
15 стэк ?
16граф
18свич
20тэг
Популярные вопросы