// определение числа чётных и нечётных цифр в числе
var n, a, b : integer;
begin
a:=0; //чётные
b:=0; //нечётные
readln (n);
if n<0 then
n:=-n; // уничтожение знака числа
repeat
if ((n mod 10) mod 2<>0) then
a:= a+1
else
b:= b+1;
n:= n div 10; // удаление последней цифры числа
until n=0;
writeln ('Чётных - '+b);
writeln ('Нечётных - '+a);
end.
4 пещеры два значения либо да либо нет(1 или 0)
4 пещеры= 4 бита(минимум) можно и пятью и шестью и более
program z1;
var a,b,k,i:integer;
begin
k:=0;
write('Ââåäèòå êîîðäèíàòó à: ');
read(a);
write('Ââåäèòå êîîðäèíàòó b: ');
read(b);
for i:=a to b do begin
if i mod 3=0 then begin
writeln(i);
k:=k+1;
end;
end;
writeln('Количество чисел кратных трём равно ',k);
readln;
end.
Личную
например:группа крови,адрес(где проживаешь)и т.д.
Если учитывать скобки- то 29, если нет, то 27