Скорее всего тебе необходимы алгоритмы для решения таких задач, они изображаются графически. Прикреплены два файла с этими алгоритмами.
Овалами обозначаются начало и конец алгоритмаТрапеция обозначаются ввод и вывод данныхПрямоугольниками обозначаются блоки где производятся расчетыДля первой задачи алгоритм прост:
Ввод длины стороны AВвод длины стороны BВвод длины стороны CРасчет длины медианы к стороне AРасчет длины медианы к стороне BРасчет длины медианы к стороне CВывод длины медианы к стороне AВывод длины медианы к стороне BВывод длины медианы к стороне CДля второй задачи:
Ввод X координаты для первой точкиВвод Y координаты для первой точкиВвод X координаты для второй точкиВвод Y координаты для второй точкиРасчет по формуле расстояния между двумя точками - получаем сторону квадратаРасчет площади квадратаРасчет периметра квадратаВывод значения площади квадратаВывод значения периметра квадрата
1 задача
var a: string;
begin
write('Введите двузначное число: ');
readln(a);
writeln((a.First() = a.Last()) ? 'Цифры одинаковы' : 'Цифры различаются');
end.
2 задача
var
month: integer;
season: string;
begin
write('Введите номер месяца: ');
readln(month);
case month of
1,2,12: season := 'Зима';
3..5: season := 'Весна';
6..8: season := 'Лето';
9..11: season := 'Осень';
else season := 'Вы ввели неверный номер месяца';
end;
writeln(season)
end.
3 задача
var
age: integer;
ending: string;
begin
write('Введите возраст: ');
readln(age);
if (age mod 100 >= 10) and (age mod 100 <= 20)
then ending := 'лет'
else
case (age mod 10) of
1: ending := 'год';
2..4: ending := 'года';
5..9, 0: ending := 'лет'
end;
write(age, ' ', ending)
end.