Попробуй змейкой сначала вправо до конца потом вниз до конца и та по круговой и всё закрасишь понял?
1.
program chislo;
var s,i:integer;
begin
for i:=3 to 100 do s:=s div 6;
if s mod 6=0 then begin
readln(s)
writeln('Ваш результат: ', s);
<span>end;
</span>end.
2.
program chetno;
var s,i:integer;
begin
for i:=-20 to 1200 do s:=s div 2;
if s mod 2 = 0 then begin
readln(s);
writeln('Ваш результат:', s);
end;
end
Третью не помню :(
Алг
нач
влево
вниз
нц пока снизу не свободно
влево
вниз
кц
кон
эту программу надо написать по правилам в Кумире
Vari, a: longint;beginread(a);i := 1;while (a mod 10 <> 0) doinc(i);writeln('Чисел в последовательности: ', i);end.
Дано
Решение.
формулы: I = i*K, N = 2^i
получим i для первого и второго алфавита.
отсюда имеем во втором алфавите отводится в два раза больше памяти под хранение.
так как N = 2 ^ i
то имеем что в первом алфавите N = 2, а во втором N = 4