Безотлагательно ПОЖАЛУЙСТА ЧЕРЕЗ Программку ПАСКАЛЬ 1).отыскать все четырехзначные числа,делящиеся на

Принялся

УРА

Насчёт первой задачи. Нет таких симметричных четырёх значных чисел, которые делятся на 27

1. Отыскать ВСЕ ЧЕТЫРЕХЗНАЧНЫЕ ЧИСЛА,ДЕЛЯЩИЕСЯ НА 27.

ОШИБКА ИЗВИНИ

Хорошо, пишу

Program  Ilgiz98;
var
  i: integer;
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln('Программа обретает 4-значные числа, которые делятся на 27');
  writeln('Перечень таких чисел:');
  for i:=1000 to 9999 do
    if (i mod 27)=0 then writeln(i);
end.

Program  Ilgiz98;
var
  mass: array [1..20] of integer;
  i, k, n: integer;
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln('Среди частей массива программка обретает числа, которые больше данного числа N и сразу кратны 5');
  write('Введите число N ');  readln (n);
  writeln('*** Вычисляю... ***');
  k:=0;
  writeln('Массив чисел:');
  for i:=1 to 20 do
    begin
     mass[i]:=random(1000)-500;
     writeln(mass[i]);
     if (mass[i]gt;n) and ((mass[i] mod 5)=0) then k:=k+1;
  end;
  writeln();
  writeln('Всего найдено ',k,' таких чисел');
end.

1-ая задачка
var
i: integer;
begin
for i:=1000 to 9999 do
 begin
  if (i mod 27)=0 then writeln(i);
 end;
 end.

2-ая задачка
var
a: array [1..21] of integer;
i, j, n: integer;
begin
write('Сгенерированый массив: ');
for i:=1 to 20 do
 begin
 a[i]:=random(100);
 write(a[i], ' ');
 end;
writeln;
write('Введите число: ');
readln(n);
for i:=1 to 20 do
 if (a[i]gt;n) and ((a[i] mod 5)=0) then inc(j);
 write(j);
end.