Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var d, x1, x2, y1,y2 : real;
begin
write('введите координаты 1 точки: ');
readln(x1, y1);
write('введите координаты 2 точки: ');
readln(x2, y2);
d: =sqrt(sqr(x2-x1)+sqr(y2-y1));
write('растояние между точками =', d);
readln
end.
хай
2.поиск текста на странице
4.изменение кодировки текста на странице
8.изменение размера шрифта для текста страницы
var a: array [1..10] of real;
s,i: integer;
{vvod tablicy}
for i : = 1 to 10 do
if a[i]< > 0 then s: =s+1;
writeln(s);
Популярные вопросы