Вопросы от Ромарио! Опции

[Romario]

Начинаю серьёзно учить Паскаль и вот решил создать и пихать сюда все неясности, если вы конечно не против
Первые вопросы:

• Как в Паскале менять цвета?
  
• Как  --//-- создать таблицу и что-нить в ней написать.
  
• И может кто-нить меня раздуплит в массивах? ;D

[Clane]

Решение 4 задачи

Код

program a4;
var n,s,i : integer;
begin
  writeln('Введите число');
  readln(n);
  s:=0;
  i:=0;
  for i:=1 to (n-1) do begin
    if (n mod i=0) then s:=s+i;
    i:=i+1;
  end;
  if s=n then writeln('Число идеальное')
  else writeln('Число не идеальное');
end.

Писал наспех, на кто что-то может и забыл написать, но прога сама правильная...


Про 3 задачу могу сказать, что там все делается очень просто, простейшим циклом for .. to ..do; Внутри цикла напиши такую штуку

Код

s:=s+sqr(i);  i:=i+1;

То есть будет увелечение до указанного числа и плюс все будет суммироваться и возводится в квадрат ...