Четный - нацело делится на 2, кратный трем - нацело делится на 3.
Самый простой алгоритм, который приходит в голову - дурацкий. Перебираем все числа и проверяем каждое, подходит ли оно. Гораздо проще взять первое подходящее число из заданного диапазона, а потом идти от него с шагом, равным 2 или 3 (смотря чему нужна кратность).
<em>// PascalABC.NET 3.2, сборка 1341 от 20.11.2016</em>
begin
Range(30,48,2).Println; // 1-я задача
Range(30,55,3).Println // 2-я задача
end.
Результат
30 32 34 36 38 40 42 44 46 48
30 33 36 39 42 45 48 51 54
Var
i,n,s:integer;
begin
Write('Введите 5 натуральных чисел: ');
s:=0;
for i:=1 to 5 do begin
Read(n);
s:=s+n
end;
Writeln('for: ',s);
Write('Введите 5 натуральных чисел: ');
s:=0; i:=1;
while i<=5 do begin
Read(n);
s:=s+n;
i:=i+1
end;
Writeln('while: ',s);
Write('Введите 5 натуральных чисел: ');
s:=0; i:=1;
repeat
Read(n);
s:=s+n;
i:=i+1
until i>5;
Writeln('repeat: ',s)
end.
<u>Пример</u>
Введите 5 натуральных чисел: 5 8 12 6 2
for: 33
Введите 5 натуральных чисел: 5 12 8 2 6
while: 33
Введите 5 натуральных чисел: 12 8 5 6 2
repeat: 33
<span>Степь, или безлесая равнина, простиралась до самого горизонта </span>
<span>Бегемот, или гиппопотам, любит сидеть подолгу в воде. </span>
<span>Часто встречаются леса чёрного тополя, или осокоря, как говорят местные жители.</span>
Пишите нормальные значения не мб, а мегабайты.
Для начала перевидем I обьем(Дискета и CD диска) из мегабайт в байты.
Iд=1,44мбайт=1474.56кбайт=11'796.48байты
ICD=700мбайт=716'800кбайт=5'734'400байты
После этого делим Iд и ICD на Iобьем 1 страницы
Iд=11'794.48÷3000=3,93 округляем, получаем 3 страницы.
Хотя здесь вы бы сказали "Почему 3,а не 4"А вот почему, если вы бы округлили до 4 и умножили на 3000 для проверки, получилось бы 12000 байт, а это не верно потому что у Iд макс. 11'794.48.Поэтому у дискета уместится 3 страницы.
ICD=5'734'400÷3000=1911.46 округляем, получаем 1911 страниц.Поэтому у CD уместится 1911 страниц.
Ответ:3 <span>страницы текста уместится на дискету и 1911 страниц уместится на компакт-CD диск.
</span>P.S: Знак (') я писал, чтобы легче было распознать число.