Var
i,n:integer;
begin
read(n);
for i := 1 to n do
if (i mod 2) * (i mod 3) * (i mod 5) = 0 then
write(i,' ')
<span>end.</span>
<span>Используемые сведения: 1 Мб = 1024 Кб Дано: Vcт = 64 Кб V д = 1,44 Мб Найти: V д / Vcт Решение: 1). V д = 1,44 Мб = 1,44 * 1024 Кб = 1474,56 Кб ≅ ≅ 1475 Кб 2). V д / Vcт = 1475 Кб / 64 Кб ≅ 23 (раз) Ответ: 23 (раз)</span>
Чтобы длина кода была минимальной и допускалось условие, нужно дать код "01" для буквы Г.
Ответ: 3) 01
Вещественный - значит есть запятая и цифры после нее. (real, и др типы) <span>Целый - это значит нет запятой (или точки) после целой части. (integer) </span>