Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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.
номер 4, так как две собаки в этой части не допущены.
разбиваем числа на триады (группы по 3 числа в каждой), и смотрим значение по таблице, получается:
1) 6224
2) 64472
var s: string; begin writeln('как вас зовут? '); readln(s); case s of 'вася': s: ='василий'; 'петя': s: ='петр'; 'люся': s: ='людмила'; 'миха': s: ='михаил'; 'пупс': s: ='пупондий'; else s: ='я с вами не знакома'; end; writeln(s); readkey; end.
Популярные вопросы