<span>Ответ:В режиме истинного цвета: 6000,
При кодировании с палитрой 256 цветов- 2000,
При кодировании с палитрой 16 цветов- 1000,
В черно-белом варианте 250</span>
№1
var a, b, c: integer;
begin
read(a, b, c);
if((a = b) or (b = c) or (c = a)) then
write('Треугольник равнобедренный')
else
write('Треугольник неравнобедренный');
end.
БЛОКСХЕМА:
начало
ввод сторон(a, b, c)
если a = b или b = c или с = a, то
вывести: 'треугольник равнобедренный'
иначе вывести: 'треугольник неравнобедренный'
конец
№2
var n, s, i: integer;
begin
s := 0;
read(n);
for i := 20 to n do begin
if (i mod 2 <> 0) then s := s + i;
end;
write(s);
end.
БЛОКСХЕМА:
начало
s := 0, i := 20
ввод числа n
пока i не равно n
если i - нечётное, то
прибавить к s
вывести s
конец
===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p mod 3 = 0).Min.Println
end.
Ответ:
4(OOPO) и 5(PTON)
Объяснение:
Достаточно начать отталкиваться от предложения с указанием бусины на 3 месте