Привет всем.Прогу помощи экспертов.Задали по информатике ргрку,но беда в том,что я в паскале полный 0.Пишу тут в надежде найти программиста знающего паскаль и желающего размять мозг.Помогите написать порграмму,желательно с описанием каждой строки и блок схему

 1) Натуральное число из n цифр является число Армстронга,если сумма его цифр,возведенную в n-ую степень равна самому числу(например, 153 =1^3+5^3+3^3). Получить все числа Армстронга,состоящие из цифр.

 2) Вывести на экран все простые числа в диапазоне от 2 до N. Рассмотреть случаи,когда N=100, N=300

Попроси у одноклассников о помощи.

Ну если настолько легкие задачи, да еще и на Паскале не осиливаем, то вали в армию, там тебя не будут обременять "сложным" програмированием.

Не, не слышал...

Вторая задача ваще ппц, всей семъей сидим мозг ломаем, кошка уже откинулась.

2 задача.

Если хочешь выводить только 200, 300, 400 и т.д, то юзай If i mod 100 =0, если не хочешь их выводить, то наборот.

Ахахаха, спс. Я промолчу про динамический массив, но погугли хоть, что тако простое число.

Нахождение простых чисел, насколько мне известно, до сих пор происходит исключительно методом перебора. Так что берёшь число и по циклу от 2 до N/2-1 перебираешь делители.

d := 2;
 repeat
     r := n mod d;
     if (r <> 0) then d:=d+1;
    Untill ( r <> 0 );
 if (d = n) then
writeln (' простое число' ,n);
  else writeln('не простое число',n);

Синтаксис не помню, пардон

Tremere писал(а):

soulstealler писал(а):

2 задача.

var 
m: integer; 
Begin 
Read(n,m); 
For i:=n to m do 
Write(i,' '); 
readln; 
end.

Если хочешь выводить только 200, 300, 400 и т.д, то юзай If i mod 100 =0, если не хочешь их выводить, то наборот.

Ахахаха, спс. Я промолчу про динамический массив, но погугли хоть, что тако простое число.

Не внимательно я прочитал сообщение, думал в тупую надо вывести все подряд на экран))

Бывает.

мы в 7 классе такие штуки делали, такой молодой, а уже создаёт темы на пг.

Перед кем ты тут ...?)

for i:=a to b do
  begin
    n:=0;
    for j:=1 to i do
      if (i mod j) = 0 then n:=n+1;
    if n<3 then writeln(i);
  end;

Как же я давно даже не вспоминал синтаксис паскаля.

никогда не нравилось программирование )