М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
vlad97vb
vlad97vb
11.05.2020 09:43 •  Информатика

Определи расстояние на плоскости между двумя точками с заданными координатами m1(x1,y1)и m2(x2,y2). ответ введи целым числом. если координаты точек: x1=5; y1=5x2=10; y2=12. ответ округли до целых

👇
Ответ:
ruana2005
ruana2005
11.05.2020
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.
4,5(38 оценок)
Открыть все ответы
Ответ:
OlgaNazarenko123
OlgaNazarenko123
11.05.2020
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.
4,7(19 оценок)
Ответ:
Naymchim
Naymchim
11.05.2020
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. Вообще, это мой типичный день, когда у нас нет четвертой или нулевой пары. Иногда я вечером хожу гулять, но редко. Ну, вообщем, все.
4,8(88 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ