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

Чтобы отвечать, сперва войдите на форум
Фото
Макс^^ Пользователь На форуме с 06 November 11

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

 

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

 

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

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

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

Фото
hardor Чемпион SA# Game На форуме с 06 September 12

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?

Фото
Haismans Высшая лига На форуме с 31 May 11

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

http://www.cyberforum.ru/pascal/

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

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

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

Server online

discord.gg/teaByhy

ZoS
Server online

ZoS.Strikearena.ru