Вывести все четные числа кратные пяти в интервале от 2 до 100 включительно; используя do while

Итак, прежде всего мы должны определиться с параметрами, которые будут влиять на выбор той или иной модели флешки. первоочередным фактором при выборе флешки будет служить объем ее памяти. на первый взгляд тут все понятно. все любят хранить на них множество файлов. собственно для этого они и предназначены изначально. на сегодняшний день приемлемым объемом считается 32гб и выше. обусловлено это тем, что цены на них достаточно доступные, так как прогресс не стоит на месте и то, что стоило больших денег год назад — сегодня уже никому не нужно и распродается за бесценок. на сегодняшний момент я бы советовал покупать флешку с объемом 32 гб и более. цены на такие объемы демократичные (в среднем 600р). на мой взгляд, это один из ключевых параметров при выборе накопителя. многие не задумываются об этом и покупают дешевые устройства большего объема. такое решение может быть в корне неверным! покупая дешевую флеш-карту с большим объемом памяти вы можете проиграть в скорости чтения и записи информации. объединим параметры корпуса в одном пункте и осветим все сразу. для начала скажу прописную истину, которая работает всегда и везде: чем меньше движущихся частей и сложных элементов — тем лучше! делайте все всегда как можно проще и это будет верным решением. если флешка выдвигается или выезжает из корпуса или корпус крутится вокруг нее или еще что-то, то оно скорее всего сломается через месяц-два, а то и раньше!

ответ:

var a,b,c,kol: integer;

  begin

    readln(a,b,c);

if a> 0 then inc(kol);

if b> 0 then inc(kol);

if c> 0 then inc(kol);

if kol> =2 then

                      begin

                        if a mod 2=1 then dec(a);

                        if b mod 2=1 then dec(b);

                        if c mod 2=1 then dec(c);

                      end

  else writeln(a+b+c);

end.

объяснение: