Сформируйте и выведите на экран массив из девяти элементов, каждые три последовательных элемента которого составлены по следующему правилу: 1-й равен удвоенному числу, введенному с клавиатуры; 2-й равен квадрату предыдущего индекса; 3-й равен остатку от деления индекса на 2

Uses crt; const n=9; var a: array[1..n] of integer; i,c: integer; begin; readln(c); i: =1; repeat a[i]: =c*2; writeln(a[i]); a[i+1]: =i*i; writeln(a[i+1]); a[i+2]: =(i+2) mod 2; writeln(a[i+2]); i: =i+3; until i=n; end.

ответ:По умолчанию выравнивание текста идет по левому краю, но если нужно изменить это, то можно воспользоваться атрибутами в разметке HTML без использования CSS.

Список атрибуов:

— align="center" (выравнивание по центру)

— align="left" (выравнивание по левому краю)

— align="right" (выравнивание по правому краю)

— align="justify" (выравнивание по ширине)

Но на самом деле их использование я рекомендовала бы избегать (только если Вы не делаете вёрстку для email-письма). Лучше выравнивание текст при при свойства text-align.

Объяснение:

Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! function sod(n: integer): integer; // сумма цифр в натуральном числе begin   result: =0;   while n> 0 do begin       result+=n mod 10;       n: =n div 10       end end; begin   var n: =readinteger('n=');   var sd: =sod(n);   var s: =1.to(n-1).where(t-> sod(t)=sd);   if s.count=0 then writeln('нет')   else s.println end. пример n= 136 19 28 37 46 55 64 73 82 91 109 118 127