1)составить программу которая находит наименьшую сумму ряда 3+4+5+6+ превышающую число 15. 2) составить программу, которая находит наименьшую сумму ряда 3+6+12+24+ превышающую введённое число.

усложнённый вариант(всё работает исправно,при вводе больше или меньше 3 чисел выводится сообщение "это не трёхзначное число! "):

vari,a,d: integer; s: string; beginwriteln('введите трёхзначное число '); read(s); d: =length(s); if d< > 3 thenwrite('это не трёхзначное число! '); if d=3 thenif (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) thenwrite('да')elsewrite('нет'); end.

простой вариант(выводится ошибка если цифр больше или меньше трёх! ):

vari,a,d: integer; s: string; beginwriteln('введите трёхзначное число '); read(s); if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) thenwrite('да')elsewrite('нет'); end. 2 варианта, так-как незнаю,проходили ли вы функцию  "length" или нет.если нет,то препад заподозрит что вы списали откуда нибудь или вам кто-то подсказал.

функции:

trunc - возвращает целую часть вещественного числа.

round   -   возвращает число, округленное до ближайшего целого. если вещественное находится посередине между двумя целыми,то округление осуществляется к ближайшему четному (банковское округление).

div -   результат целочисленного деления, точнее округленное до ближайшего целого по направлению к 0.

mod - остаток от целочисленного деления.

решение:

trunc(6,9) = 6

trunc(6,2) = 6

round(6,9) = 7

20 div 6 = 3

20 mod 6 = 2

2 div 5 = 0

2 mod 5 = 2