Нужно поставить некоторые стулья в середины стен. а другие по углам
Var i:integer;
begin
for i:=-17 to 3 do
if (i mod 4=0) then writeln(i:4);
<span>end.
<u><em>ПРоВерКА
</em></u><em> -16
-12
-8
-4
0</em><u><em><span>
</span></em></u></span>
Репетиция-это цикл. Т.е. ты повторяешь одно и тоже(оттачиваешь навыки).
Шифровка в двоичную или каким-то конкретным методом(Хафман..)?
Var a,a1,a2,a3:integer;
begin
write('a = ');
readln(a);
a1:=a div 100;
a2:=a div 10 mod 10;
a3:=a mod 10;
if (a1 mod 2 = 0)or(a2 mod 2 = 0)or(a3 mod 2 = 0)
then writeln('В числе есть четные цифры')
else writeln('В числе нет четных цифр');
end.
Пример:
a = 519
В числе нет четных цифр