Помогите, пожалуйста, с заданием по информатике)
5-9 класс
|
Задание находится на фото, во вложениях)
Заранее спасибо)
Только распишите все подробно
var x1,x2,y1,y2,r:real;
begin
write('Введите координаты х и у первой точки: ');
readln(x1,y1);
write('Введите координаты х и у второй точки: ');
readln(x2,y2);
r:=sqrt(sqr(x2-x1)+sqr(y2-y1));
writeln('Расстояние между ними: ',r);
end.
Program Distance;
Var
X1, Y1, X2, Y2, D: Real;
Begin
WriteLn('Введите координаты первой точки');
ReadLn(X1, Y1);
WriteLn('Введите координаты второй точки');
ReadLn(X2, Y2);
D := Sqrt(Sqr(X2 - X1) + Sqr(Y2 - Y1));
WriteLn('Расстояние между точками = ', D:2:2);
ReadLn;
End.
Другие вопросы из категории
номер одного из этих элементов и его значение. Вывести значение остальных элементов данной окружности (в том же порядке). В качестве значения pi использовать 3,14.
Нужно эту задачу решить в ПАСКАЛЕ.
вывести на экран те элементы массива которые делятся на пять без остатка
Читайте также
их замуж. Пригласил женихов со всех концов света. Съехались в королевство 50 принцев и знатных юношей. Сколькими способами дочери короля могут выбрать себе женихов?
Задание2.
На одном далеком-далеком острове жило-было маленькое племя. В языке этого племени было всего 5 прилагательных, 15 существительных и 10 глаголов. Предложения в этом языке состояли либо из существительного и глагола, либо из прилагательного, существительного и глагола (порядок слов именно такой). Сколько всего предложений можно составить по правилам языка маленького племени?
Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:
1). сумму чисел, не превышающих 10;
2). сумму чисел,кратных 3. Помогите пожалуйста,написать эту программу на PaskalABC.
Помогите, пожалуйста, с заданием по информатике.
Задание находится на фото, во вложениях.
Заранее спасибо)