PascalABC.NET:
<em>program colors;</em>
<em>begin</em>
<em>writeln('черный');</em>
<em>writeln('коричневый');</em>
<em>writeln('красный');</em>
<em>writeln('жёлтый');</em>
<em>end.</em>
Примечание:
write('some_text%') - написать some_text%
writeln('some_text%') - написать some_text% и перейти на следующую строку
32 = 2^5. Один символ 5 бит
240 Кб = 240 * 1024
240*1024*8/5 = 393216
Ответ: 393216
Мы знаем что у нас нечетное число букв, причем что нечетность приходится на букву Б (7)
Все палиндромы длиной во все буквы
Тогда каждый палинром имеет такую схему:
[некий набор альфа]Б[альфа в обратном порядке]
Разных альф может быть тоже 35 и состоит из половины букв Ч и (7-1)/2 = 3 букв Б
Обозначим все колво букв Ч = 2x, а половину - х
Значит у нас тут Перестановки с повторениями, колво которых 35
35 = (x+3)! / (x!3!)
35 * 3! = (x+3)(x+2)(x+1)
7 * 5 * 3 * 2 = (x+3)(x+2)(x+1)
можно представить так
7 * 6 * 5 = (x+3)(x+2)(x+1)
очевидно что 7 = х + 3 т.е. х = 4
А букв Ч = 2х = 2 * 4 = 8
Надеюсь понятно
<em>// PascalABC.NET 3.3, сборка 1576 от 16.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(20,0,10); a.Println;
Writeln('Результаты в форме "(элемент, число повторов)")');
a.GroupBy(t->t).Select(t->(t.Key,t.Count)).Where(t->t[1]>1)
.OrderBy(t->t[0]).Println(NewLine);
end.
<u>Пример</u>
6 9 1 2 10 8 6 3 7 7 9 5 5 7 10 2 9 3 2 7
Результаты в форме "(элемент, число повторов)")
(2,3)
(3,2)
(5,2)
(6,2)
(7,4)
(9,3)
(10,2)
1)var a:integer;
begin
writeln('Введите число');
readln(a);
if (a mod 2=0) then write('Чётное ')
else write('Нечётное ');
if (a div 100>=1)then write('трёхзначное число')
else if (a div 10>=1)then write('двузначное число')
else writeln('однозначное число');
<span>end.
2)</span>var a,b,c:real;
begin
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(b);
writeln('Введите 3 число');
readln(c);
if (a<b)and (b<c) then
begin
a:=2*a;
b:=2*b;
c:=2*c;end
else
begin
a:=(-1)*a;
b:=(-1)*b;
c:=(-1)*c;
end;
writeln(a);
writeln(b);
writeln(c);
end.
3)var a,b,c:integer;
begin
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(b);
writeln('Введите 3 число');
readln(c);
if a=b then writeln('3')
else if b=c then writeln('1')
else writeln('2');
<span>end.</span>