Циркуль, линейка и различные цвета, например карандаши (чтобы не сливалось то, что нужно отобразить в диаграмме)
Var x, y, i, c, s: integer;
begin
readln(x, y);
if (x < y) then
begin
for i := x to y do
begin
c := c + 1;
s := s + i;
end;
writeln('S = ', s, ' C = ', c);
end;
<span>end.
2)
const N = 10;
var a, c: array [0..N] of integer;
i: integer;
begin
for i := 0 to N do
a[i] := random(50);
for i := 0 to N do
begin
if (a[i] mod 2 = 0) then
c[i] := a[i] * a[i]
else
c[i] := 2 * a[i] * i;
end;
{Вывод массива, это для проверки, не обязательно, но если хотите...}
for i := 0 to N do
writeln('[', i, '] => ', c[i]);
<span>end.
<em>Учителям информатики очень лень говорить домашку х)</em></span></span>
1) Невозможно ничего, разные типы данных
2) Сложение возможно, невозможно деление
3) Возможно
4) Невозможно деление на 0
Ответ: 3)
Потому как в цветовой модели RGB координаты цвета задаются в формате (Red Green Blue) сколько красного, зеленого и синего. В цветовой модели HSB можно выбрать цвет подобрать яркость и насыщенность. Минус формата HSB для отображения на экране монитора все равно придется перевести в RGB.
Идем с конца:
1) 99 - 1 = 98
2) 98 / 2 = 49
3) 49 - 1 = 48
4) 48 / 2 = 24
5) 24 / 2 = 12
6) 12 / 2 = 6
7) 6 / 2 = 3
8) 3 - 1 = 2
9) 2 / 2 = 1
10) 1 - 1 = 0
Все получилось!
Ответ: 2121111212