<span>1. Информация.
2. Редактор.
3. Программа.
4. Меню.
5. Окно.
6. Сеть.
7. Почта
8. Память.
9. Обеспечение.</span>
Program fofgogjoj;
var
a,b,c:integer;
begin
Writeln('Введите три значения температуры');
Readln(a,b,c);
if a>0 then
Writeln('1ое значение - температура таяния');
if b>0 then
Writeln('2ое значение - температура таяния');
if c>0 then
Writeln('3е значение - температура таяния');
if (a<=0) and (b<=0) and (c<=0) then
Writeln('Температуры таяния не обнаружено');
<span>end.</span>
A = N^i
N - количество букв в алфавите( бит принимает всего два значения, например: один и ноль, поэтому N = 2);
i - длина слова (i = 1, 2, 3, 4)
A - количество слов заданной длины(в данном случае, количество цветов, то есть A - количество комбинаций)
A = 2^1 = 2 цвета
A = 2^2 = 4 цвета
A = 2^3 = 8 цветов
A = 2^4 = 16 цветов
Var i,s:integer;
begin
s:=0;
for i:=20 to 450 do
if (i mod 4 = 0) then s:=s+i;
writeln(s);
end.