Скорее всего тебе необходимы алгоритмы для решения таких задач, они изображаются графически. Прикреплены два файла с этими алгоритмами.
Овалами обозначаются начало и конец алгоритмаТрапеция обозначаются ввод и вывод данныхПрямоугольниками обозначаются блоки где производятся расчетыДля первой задачи алгоритм прост:
Ввод длины стороны AВвод длины стороны BВвод длины стороны CРасчет длины медианы к стороне AРасчет длины медианы к стороне BРасчет длины медианы к стороне CВывод длины медианы к стороне AВывод длины медианы к стороне BВывод длины медианы к стороне CДля второй задачи:
Ввод X координаты для первой точкиВвод Y координаты для первой точкиВвод X координаты для второй точкиВвод Y координаты для второй точкиРасчет по формуле расстояния между двумя точками - получаем сторону квадратаРасчет площади квадратаРасчет периметра квадратаВывод значения площади квадратаВывод значения периметра квадрата
Объяснение:
var
s: string;
m,l: set of char;
i: integer;
n: integer;
k: integer;
begin
readln(s);
m:= ['А'..'Я','а'..'я','Ё','ё'];
l:= ['A'..'Z','a'..'z'];
for i:=1 to length(s) do
if s[i] in m then inc(n);
if s[i] in l then inc(k);
if n>k then write('Русских букв больше!');
if k>n then write('Латинских букв больше!');
if n=k then write('Русских и латинских букв поровну!');
end.
Можно лучший ответ ?