program a2;
var
a, x1, y1, z1, l1, z, l: string;
i, g, d, f, a1, b1, sum, vr, vr1, err: int64;
begin
readln(a);
g := pos(';', a);
x1 := copy(a, 2, g - 2);
y1 := copy(a, g + 2, length(a) - g - 2);
if a[1] = '[' then d := 1
else d := 0;
if a[length(a)] = ']' then f := 1
else f := 0;
if pos('/', x1) <> 0 then begin
z := copy(x1, 1, pos('/', x1) - 1);
z1 := copy(x1, pos('/', x1) + 1, length(x1) - pos('/', x1));
val(z, vr, err);
val(z1, vr1, err);
a1 := vr div vr1;
end
else val(x1, a1, err);
if pos('/', y1) <> 0 then begin
l := copy(y1, 1, pos('/', y1) - 1);
l1 := copy(y1, pos('/', y1) + 1, length(y1) - pos('/', y1));
val(l, vr, err);
val(l1, vr1, err);
b1 := vr div vr1;
end
else val(y1, b1, err);
for i := a1 to b1 do sum := sum + 1;
val(z, vr, err);
val(z1, vr1, err);
if (d = 0) then
if vr = 0 then sum := sum - 1
else if (vr mod vr1 = 0) then sum := sum - 1;
val(l, vr, err);
val(l1, vr1, err);
if (f = 0) then
if vr = 0 then sum := sum - 1
else if (vr mod vr1 = 0) then sum := sum - 1;
writeln(sum);
end.
На не благодари)
program z1;//имя программы
var a:real;b,c,d:integer;//объявление глобальных переменных
function M (x,y:integer): integer;//название функции, параметры, тип результата
begin//тело функции
if x>y then M:=x else M:=y//неполный условный оператор
end;
begin//тело программы
read (a,b);//ввод значений переменных
if frac(a) >= 0.5 then c:=trunc(a)+1 else c:=trunc(a);//математическое округление
d:= M (b,c);//вызов функции
write(d)//вывод результата
end.
Объяснение:
картинка 1 - блок-схема программы
картинка 2 - блок-схема функции
математическое округление, чтобы 2,5 было равно 3, а не 2 как при использовании функции round
Поделитесь своими знаниями, ответьте на вопрос:
1. Какие возможности программы Sketch Up вызнаете?
В основе всех моделей, разработанных в SketchUp, лежат линии и фигуры. Для управления ими задействуются всего пара инструментов, научится пользоваться которыми, абсолютно не составит труда.
Дабы фигуру превратить в объемный предмет, SketchUp предлагает использовать инструмент «Тяни-Толкай». Наводите курсор, к примеру, на прямоугольник, и оттягиваете его подальше. Прямоугольник превращается в коробку. Чем больше вы отводите курсор, тем крупнее становится объект. Все предельно Программа может похвастаться чрезвычайной точностью и измерений. Все модели характеризуются максимально точными размерами.
Еще один полезный инструмент – «Ведение». Он позволяет, как бы выдавливать нужную форму с элементов. Его также используют для сглаживания острых углов.
Для цветового наполнения принято использовать стандартный для всех редакторов инструмент «Заливка».
В SketchUp позволяется группировать похожие объекты. Это позволяет существенно у процесс их перемещения и копирования. Изменяя одну элемент, программа автоматически проделывает тоже самое с остальными копиями. Отсюда и нужная симметрия.
Для реалистичности вашей модели предусмотрен инструмент добавления теней.
Дабы свое творение изнутри можно задействовать инструмент «Сечение», что позволяет временно убрать ненужную часть.
Позволяется оставлять к модели необходимые метки и расставлять размеры.
Большим плюсом программы является опция самоучителя, которую можно активировать в любой момент и получить все необходимые сведения по эксплуатации.
Очень удобной является функция структуризатора, что убрать возникший при работе беспорядок.
Объяснение: