Var a,b,c,n,i:integer;
begin
writeln('На что должно делиться (2 числа через пробел) =>');
readln(a,b); {делится на а и b но не делится на c}
writeln('На что не должно делиться (1 число) =>');
readln(c);
writeln('Верхняя граница(1 число) =>');
readln(n);
for i:= 1 to n do
if (i mod a = 0) and (i mod b = 0) and (i mod c <> 0) then
writeln(i);
end.
var i:integer;
begin
for i:= 1 to 30 do
if (i mod 2 = 0) and (i mod 3 = 0) and (i mod 4 <> 0) then
writeln(i);
end
2)
var i:integer;
begin
for i:= 50 downto 1 do
if (i mod 2 <> 0) then
writeln(i);
end.
//Pascal
var
Arr: array [1..255] of byte;
i, N, A, B: byte;
begin
randomize; //В PascalABC.NET можно убрать
write('Введите количество элементов массива: '); readln(N);
writeln;
writeln(' ***Исходный массив*** ');
for i := 1 to N do
begin
Arr[i] := random(50);
write(Arr[i], ' ');
end;
writeln; writeln;
write('Введите диапазон A и B: '); readln(A, B);
writeln; writeln('Номера элементов');
for i := 1 to N do
if ((Arr[i] >= A) and (Arr[i] <= B)) then
write(i, ' ');
writeln;
readln;
end.
Var
a, b: integer;
begin
write('введите a,b ');
readln(a, b);
if ((a + b) > 0) and ((a + b) mod 10 = 3) then
writeln((a + b) * 2)
else
writeln(a + b);
end.
Тест №1
введите a,b 10 3
26
Тест №2
введите a,b 5 6
11
Веб-форум - веб-приложение, для организации общения между пользователями, которое имеет следующую иерархическую структуру: Разделы - Темы - Сообщения. Отдельно взятая тема представляет по своей сути гостевую книгу. Также, внутри темы могут устраиваться опросы. Сообщению каждого пользователя другой пользователь может поставить оценку. На основании этих оценок а также общего количества сообщений и времени, проведенного пользователем на форуме, происходит подсчет и определение статуса пользователя. Информация предоставляется в виде сообщений, которые могут быть оформлены либо в табличной либо в древовидной форме. Ответы в древовидной форме подразумевают указание участником поста другого участника, на который он отвечает. На основании этих данных строится дерево ответов. В табличной форме ответы представлены просто в виде таблицы сообщений в открытой теме. Большинство форумов имеет систему личных сообщений, позволяющую зарегистрированным пользователям общаться индивидуально. Также, администратор форума может ограничить для незарегистрированных пользователей ряд функционала: к примеру закрыть доступ к определенным разделам форума, закрыть возможность писать ответы незарегистрированному пользователю или просматривать ссылки или файлы, прикрепленные к сообщениям. Как правило, на форуме существует сводка правил общения, за нарушение которых Администратор или Модераторы могут временно или навечно заблокировать вашу учетную запись.