Решение данной задачи смотрите в прикрепленном скриншоте:
14-м 1-а 26-ш 1-а.
Для этого она заменила каждую букву в своём имени на её номер в алфавите
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% и перейти на следующую строку
var
a:array[1..100] of integer;
i, n:integer;
begin
randomize;
write('Введите количество элементов '); readln(n);
writeln('Исходный массив: ');
for i := 1 to n do
begin
a[i] := random(21) - 10;
write(a[i], ' ');
end;
writeln;
writeln('Вывод массива в соответствии с условием: ');
for i := 1 to n do
begin
if i mod 4 = 0 then
write('нет ')
else
if i mod 2 = 0 then
write('да ')
else
write(a[i], ' ');
end;
end.