Var a,b,c,min:integer;
begin
write('Введите a: ');
readln(a);
min:=a;
write('Введите b: ');
readln(b);
if b<min then min:=b;
write('Введите c: ');
readln(c);
if c<min then min:=c;
writeln('Наименьшее: ',min);
<span>end.
Для VBA
Sub Z()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim min As Integer
</span>a = InputBox("Введите A: ")<span>
min = a
b = InputBox("</span>Введите <span>B: ")
If b < min Then min = b
c = InputBox("</span>Введите <span>C: ")
If c < min Then min = c
MsgBox ("Наименьшее: " & min)
End Sub
Для наибольшего
</span>Sub Z()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim max As Integer
a = InputBox("Введите A: ")
max= a
b = InputBox("Введите B: ")
If b > max Then max = b
c = InputBox("Введите C: ")
If c > max Then max = c
MsgBox ("Наибольшее: " & max )
End Sub
Я бы отнесла былины к социальным моделям, т.к. они моделируют ситуации взаимоотношений между людьми в обществе.
Во-первых, ты плохо расслышал условие.
Вместо "нестарого" файла должно быть "растрового" файла.
Растровый файл, в отличие от векторного - это файл, в котором каждый пиксел описывается отдельно, палитрой цветов.
Картинка имеет размер 1024*512 пикселей.
Если бы каждый пиксель занимал 1 байт, тогда размер файла был бы
1024*512 байт = 512 Кбайт = 0,5 Мбайта
А у нас размер файла 1,5 Мбайта, то есть в 3 раза больше.
Значит, каждый пиксел занимает 3 байта = 3*8 = 24 бита.
Эта глубина цвета называется True Color и дает
2^24 = 16777216 цветов в палитре.
Ответ:
Program triangle;
var ax,bx,cx,ay,by,cy:integer;
begin
Writeln('Введите координату А по Х');
Readln(ax);
Writeln('Введите координату B по Х');
Readln(bx);
Writeln('Введите координату C по Х');
Readln(cx);
Writeln('Введите координату А по Y');
Readln(ay);
Writeln('Введите координату B по Y');
Readln(by);
Writeln('Введите координату C по Y');
Readln(cy);
Writeln('Площадь треугольника равна ', 0.5*((ax-cx)*(by-cy)-(bx-cx)*(ay-cy)));
end.
Подробнее - на Znanija.com - znanija.com/task/4758960#readmore
Объяснение:
674 = <span>DCLXXIV
78 = </span><span>LXXVIII
465 = </span><span>CDLXV
</span>3440 = <span>MMMCDXL
</span>MMMDXIV = <span>3514
CCCI = </span><span>301
CDVII = </span><span>407
LIX = </span><span>59
MMCCCDXXIV = </span><span>2624
</span>
