Program Alina;
uses crt;
const
a=200;
b=300;
var i, n, k: integer;
begin
k:=0;
for i:=a to b do
if i mod 7 = 0 then k:=k+1;
writeln('Всего ',k,' чисел, кратных 7');
end.
Ну скажем...
1 = а
2 = б
3 = в
4 = г
и так далее.
Но можно скажем сделать так...
10000 = а
11000 = б
11100 = в
11110 = г
11111 = д
и так далее.
Шифр 11000 10000 11110 = баг
И, таким образом, ты можешь придумывать свои кодировки
Не понятно про "Жесткий" цикл. Но как вариант:
var i:integer;
begin
for i:=-30 to 50 do
if (i mod 3=0) and (i mod 4 =0) and(i<>0 then writeln(i);
end.
На выходе:
-24
-12
12
24
36
48
2. Удобнее принсети флеш-накопитель (1). Привод для считывания информации с CD-диска (2) может отсутствовать, оперативная память (3) не предназначена для постоянного хранения информации. Записать на жесткий диск (4) можно, но для переноса информации он не предназначен.
3. 4 Кб = 4 * 1024 = 4096 байт. Следовательно, подойдет документ в формате *.pdf = 4000 байт.
Цифр, может быть?
для кодирования нужно 4 бита