Var
a,b,c,max,min:integer;
begin
write('Введите первое число');
readln(a);
write('Введите второе число');
readln(b);
write('Введите третье число');
readln(c);
if a > b then
max:=a
else
max:=b;
if max > c then
writeln('Максимальное число = ', max)
else
writeln('Максимальное число = ', c);
if a > b then
min:=b
else
min:=a;
if min < c then
writeln('Минимальное число = ', min)
else
writeln('Минимальное число = ', c);
end.
Из города А в город К насчитала 13 различных путей.
Ответ: 13
1.Подключается модуль, отвечающий за графику
2.Начало объявления переменных
3,Объявляется переменная "а", с числовым типом
4.Начало программы
5.Необходимо ввести значение переменной "а"
6.Перемещает указатель (начальную точку) на координаты а,1 где а - координата по оси Х, 1 - координата по оси Y
7.Рисует окружность с центром в точке x = а+а div 2,y = 1 где div целочисленное деление. То есть если а=5, то 5+5 div 2 будет равно 5. И третий параметр это радиус, то есть радиус равен а div 4.
8. Функция linto(x,y) рисует прямую линию в точку с координатами x и y. Причем рисует из точки, в которой указатель был до этого. То есть в данном случае из точки в центре окружности. Я думаю дальше можно догадаться, так как все функции описал. Программа написана на языке Pascal и она рисует что-то.
Avast , Kasper , Eset 32 , Norton (не советую Нортон)
