В 1 байте 8 бит. Значит 512 бит / 8 = 64 байта
Var x,z,k:integer;begin
writeln ('введите число');readln(x);k:=0;while x<>0 dobeginz:=x mod 10;x:=x div 10;if x mod 2=0 thenk:=k+1;end;writeln('кол-во чётных чисел :',k);end.
Опустить перо
повернуть налево
идти
повернуть налево
идти
повернуть налево
идти
повернуть направо
идти
повернуть направо
идти
поднять перо
Здесь нужен цикл с параметром
Чертить ромбик не буду, это и так понятно.
Условие: "Фасоль белая"
ответ ДА, команда "<span>положить фасолину в белую коробку"
ответ НЕТ, команда "</span><span>положить фасолину в серую коробку"</span>
var a,s:integer;
begin
readln(a);
while a>0 do
begin
if a mod 10 mod 3 = 0 then s:=s+a mod 10;
a:=a div 10
end;
if s=0 then writeln('NO')
else writeln(s);
end.