Определи расстояние на плоскости между двумя точками с заданными координатами m1(x1,y1)и m2(x2,y2). ответ введи целым числом. если координаты точек: x1=5; y1=5x2=10; y2=12. ответ округли до целых
Program p1; var x1,x2,y1,y2:integer; function dlina(xx1,yy1,xx2,yy2:real):integer; begin dlina:=round(sqrt(sqr(xx1-xx2)+sqr(yy1-yy2))); end; begin writeln('Введите координаты первой точки'); readln(x1,y1); writeln('Введите координаты второй точки'); readln(x2,y2); writeln('Расстояние между точками:',dlina(x1,y1,x2,y2)); end.
S:string; a, i, k, b, n:integer; begin readln(s); readln(a); k:=1; for i:=1 to length(s) do begin k:=k*val(s[i], n); if val(s[i], n)=a then b:=b+1;end; writeln(k); if b=0 then writeln('yes') else writeln('no'); readln; end. 2 a:array[1..1000] of integer; begin k:=1; for i:=100 to 999 if (((i+1) mod 2))=0) and (((i+2) mod 3)=0) and (((i+3) mod 4)=0) and (((i+4) mod 5)=0) then begin a[k]:=i; k:=k+1; end; for i:=1 to k do writeln(a[i]); readln; end.
3 s, a:string; i, k:integer; begin readln(s); readln(a); for i:=1 to length(s) do if s[i]=a then s[i]:=''; writeln(s); readln; end.
7:00 — Я просыпаюсь. Как всегда — не выспавшийся. 7:01 — Поднимаюсь. Иду в ванную умываться. 7:05 — Умываюсь. Иногда чищу зубы. 7:10 — Иду на кухню наливать чай. С утра я не завтракаю, пью чай без сахара и без всяких конфет, печений и т.д. 7:15 — Пью чай, смотрю новости по телевизору. 7:30 — Одеваюсь и собираюсь на занятия. 7:40 — Выхожу из дома и иду на остановку. Без наушников в ушах я редко выхожу из дома. Без них — день неудался 99%. 7:45 — Стою на остановке. Жду автобус № 6 или троллейбус № 5, что бы доехать до 3-ей Дачной. 7:50 — Еду. 8:00 — Стою на остановке на 3-ей Дачной. Теперь мне нужно сесть на маршрутку №81 или №86, или на автобус №18, 18д. 8:10 — Еду в техникум, слушаю музыку, сижу в ICQ (Мой номер, если что: 387-040-890) 8:30 — Приезжаю к техникуму. Обычно по пути с остановки захожу на 2-ую Садовую, на базар, чтобы купить Orbit Proffessional. 8:45 — Стою на крыльце техникума, либо, возле кабинета. 9.00 — Начало занятий. Первая пара. Обычно мне тяжело на первой паре, первую половину урока, о чем-нибудь думать в тему. 10:30 — Перемена. 10:40 — Начало второй пары. 12:10 — Перемена. 12:30 — Начало третьей пары. 14:00 — Окончание занятий. Иногда у нас есть четвертая пара. 14:15 — Еду домой. 15:00 — Приезжаю домой. Стараюсь сразу после приезда садиться за уроки. 18:00 — Залазию в Интернет 23:00 — Ложусь спать. Знаю, что завтра я опять проснусь не выспавшийся. И замкнутый круг продолжится…P.S. Вообще, это мой типичный день, когда у нас нет четвертой или нулевой пары. Иногда я вечером хожу гулять, но редко. Ну, вообщем, все.
var x1,x2,y1,y2:integer;
function dlina(xx1,yy1,xx2,yy2:real):integer;
begin
dlina:=round(sqrt(sqr(xx1-xx2)+sqr(yy1-yy2)));
end;
begin
writeln('Введите координаты первой точки');
readln(x1,y1);
writeln('Введите координаты второй точки');
readln(x2,y2);
writeln('Расстояние между точками:',dlina(x1,y1,x2,y2));
end.