Нужен срочный хелп [Паскаль]

  • Чтобы отвечать, сперва войдите на форум

    Макс^^

  • Пользователь
    С нами с 6 ноября 11
  • 157
    1
    4

Братишки пожалуйста кому не в падлу, помогите написать программки на паскале, очень срочно надо.
1. Составьте программу, выводящую на экран положительные делители числа, введенного с клавиатуры.

 

2 . Найти сумму всех натуральных двузначных чисел, делящихся на 7.

 

3. Найти произведение всех натуральных однозначных чисел, кратных 11. 

Все писать через цикл for.
Для тек то в теме программки легкие. Буду ОЧЕНЬ благодарен тем кто напишет.
У братишки четвертная решается :)


Изменено: Макс^^, 19 Март 2015 - 10:02

    • 0
  • Наверх
19 Март 2015 - 10:01

    hardor

  • Пользователь
    С нами с 6 сентября 12
  • 156
    0
    9

1)

var n,i:integer;
begin
    readln(n);
    for i:=1 to n do
          if n mod i = 0 then write(i,' ');
    readln;
end.


2)

var n,i:integer;

begin
n := 0;
    for i:=10 to 99 do
          if i mod 7 = 0 then n:=n+i;
   
    write(n);
end.


Паскаль уже лет 15 не видел, но вроде должно работать. В 3й задаче условие непонятное, как однозначное число может быть кратно 11?


    • 1
  • Наверх
19 Март 2015 - 10:30

    Haismans

  • Пользователь
    С нами с 31 мая 11
  • 627
    0
    66

Знаешь, есть такая штука, гугл вроде называется. Ходят слухи, что там можно найти все, ну или почти все. 

САЙТ

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

Четвертная решается у братишки, но ему видимо до фонаря, раз пишет, как бы странно это не звучало, братишка братишки. . ЧЕТ ПАДАЗРИТЕЛЬНА)

P.S Хороший прием, дать больше информации чем требовалось, чтобы не у кого не возникло подозрений в достоверности сведений, в данном случае про братка.


    • 0
  • Наверх
19 Март 2015 - 10:30


0 пользователей читают эту тему

0 пользователей, 0 гостей, 0 невидимых