Напишите программу, которая в последовательности целых чисел определяет сумму чётных чисел, принадлежащих интервалу (15, 190) или сообщает, что таких чисел нет (выводит "net"). программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 -- признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введённые числа по модулю не превышают 30 000. программа должна вывести одно число: сумму чётных чисел, принадлежащих интервалу (15, 190) или вывести "net", если таких чисел нет. пример работы программы: вход: 5 15 25 48 180 196 0 выход: 228 (48+180) язык паскаль

1. выделяем текст, на который должна быть ссылка

2. правой кнопкой мыши нажимаем на выделенном фрагменте и в выпвшем меню выбираем гмперссылка. или в верхнем меню выбираем гиперссылка (hyperlink)

в html будет так - < a href=""> текст ссылки < /a>

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

и еще кое-что: если нужно хотя бы 4 делителя, то оставьте все как есть, а если нужно ровно четыре делителя, в строчке  if k> =4 then write(i: 3); уберите знак >   .

1 вариант.

program zadacha;

var n, i, j, k : byte;

begin

write('введите число n');

for i: = 1 to n do begin

k: =0;

for j: = 1 to i do

if i mod j =0 then k: =k+1;

if k> =4 then write(i: 3);

2 вариант.

program zadacha;

var n, i, j, k : byte;

begin

write('введите число n');

for i: = 1 to n do begin

k: =0;

for j: = 2 to (i-1) do

if i mod j =0 then k: =k+1;

if k> =4 then write(i: 3);